program a2;var n,i,min,max,x:integer; begin Writeln(039;Введите колицество человек в

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 xgt;0 then max:=x;
if xlt;0 then min:=x;
end;
Writeln('Рост самого низкого ученика',min);
Writeln('Рост самого высокого воспитанника',max);
end.

что тут неправильно?

Ева Евтифьева 2019-08-20 19:55:15

спасибо большое))