Нужно сделать с 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

273

290

Посмотреть ответы 2

Ответы на вопрос:

olesy1945

Информатика

4,6(18 оценок)

Var 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.