Question

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

СРОЧНО!ПОМОГИТЕ ПОЖАЛУЙСТА!

Answer 1

Если учеников в классе 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.