В классе n учеников. найти самого высокого и низкого ученика

Question

В классе n учеников. найти самого высокого и низкого ученика

Answer 1

Пройдёмся перебором по всем n ученикам, записывая их рост. Получая очередной рост, сравним его с уже имеющимися самым большим и самым маленьким ростом. Если он между ними, то не берём это значение. После N шагов получим два числа, которые искали.

Answer 2

Var
  n,m,k,i,l,max,min:longint;
begin
max:=-maxlongint;
min:=maxlongint;
 readln(n);
for i:=1 to n do 
begin
 readln(n);
if n>max then max:=n;
if nend;
writeln('Самый высокий ',max);
writeln('Самый низкий ',min);
end.