Информатика

Полина

30 августа, 07:52

Program a2;

var n, i, min, max, x:integer;

begin

Writeln ('Введите колицество человек в классе:') ;

Readln (n) ;

Writeln ('Введите рост 1 ученика:') ;

readln (x) ;

min:=x;

max:=x;

for i:=2 to n do begin

Writeln ('Введите рост ', i,' ученика:') ;

readln (x) ;

if x>0 then max:=x;

if x<0 then min:=x;

end;

Writeln ('Рост самого низкого ученика', min) ;

Writeln ('Рост самого высокого ученика', max) ;

end.

что здесь неправильно?