Задан рост ученика в классе.величина роста выбирается случайным образом в интервале от 140 до 180 см.определить порядковый номер ученика имеющего самый высокий рост. !

Если учеников в классе 10.

program z1;
var
i,b,с:integer;
a:array[1..10] of integer;
begin
for i:=1 to 10 do
begin
a[i]:=random(140,180);
b:=max(b,a[i]);
If a[i]=b then
c:=i;
end;
writeln('Номер самого высокого учеика в классе: ',с);
end.