Пожалуйста помогите!!!!! Нужно сделать с помощью PASCAL Я СДЕЛАЛА НАЧАЛО, ПОМОГИТЕ ЗАКОНЧИТЬ И ЕСЛИ ЕСТЬ ОШИБКИ- ИСПРАВИТЬ Имеет
Пожалуйста помогите!!!!! Нужно сделать с помощью 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................. .................. .................. ....................
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.