Задан рост ученика в классе.величина роста выбирается случайным образом в интервале от 140 до 180 см.определить порядковый номер ученика имеющего самый высокий рост. !
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.
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.