Пожалуйста помогите!!!!! Нужно сделать с помощью PASCAL
Я СДЕЛАЛА НАЧАЛО, ПОМОГИТЕ ЗАКОНЧИТЬ И ЕСЛИ ЕСТЬ ОШИБКИ- ИСПРАВИТЬ
Имеется n кол-во учеников одного класса. Для каждого в компьютер вводится рост. До 160-низкий, от 160 до 170-средний, от 170-высокий.
Вот начало программы:
PROGRAM rost;
VAR A,B,N:REAL;
BEGIN
?N=0(НЕ ЗНАЮ ГДЕ ЭТО ПОСТАВИТЬ)
WRITELN( 'ЕСТЬ ЛИ УЧЕНИКИ В КЛАССЕ? , ЕСЛИ ДА-1, НЕТ-0);
READLN(A);
WHILE A=1 DO;
BEGIN
WRITELN ('ВВЕДИТЕ СВОЙ РОСТ');
READLN (B);
N=N+1
IF B<160 THEN.................
..................
..................
....................
Я СДЕЛАЛА НАЧАЛО, ПОМОГИТЕ ЗАКОНЧИТЬ И ЕСЛИ ЕСТЬ ОШИБКИ- ИСПРАВИТЬ
Имеется n кол-во учеников одного класса. Для каждого в компьютер вводится рост. До 160-низкий, от 160 до 170-средний, от 170-высокий.
Вот начало программы:
PROGRAM rost;
VAR A,B,N:REAL;
BEGIN
?N=0(НЕ ЗНАЮ ГДЕ ЭТО ПОСТАВИТЬ)
WRITELN( 'ЕСТЬ ЛИ УЧЕНИКИ В КЛАССЕ? , ЕСЛИ ДА-1, НЕТ-0);
READLN(A);
WHILE A=1 DO;
BEGIN
WRITELN ('ВВЕДИТЕ СВОЙ РОСТ');
READLN (B);
N=N+1
IF B<160 THEN.................
..................
..................
....................
Answers & Comments
Rost: array[1..50] of real;
n, i: integer;
begin
write('Сколько человек в классе? ');
readln(n); {Ввод и чтение кол-ва человек в классе}
for i := 1 to n do
begin
write('Рост ученика: ');
readln(Rost[i]);
if Rost[i] < 160
then writeln('Рост ', i, '-ого ученика низкий')
else
if (Rost[i] > 159) and (Rost[i] < 170)
then writeln('Рост ', i, '-ого ученика средний')
else
writeln('Рост ', i, '-ого ученика высокий');
end;
end.