В массиве хранится информация о росте 35 человек.Определить сколько человек имеют самый большой рост. Очень срочно!!!!!
В массиве хранится информация о росте 35 человек.Определить сколько человек имеют самый большой рост. Очень срочно!!!!!
Гость
Ответ(ы) на вопрос:
Гостьvar a:array [1..35] of integer; i,max:integer;
begin
for i:=1 to 35 do
begin
a[i]:=random(100,190);
if a[i]>max then max:=a[i];
end;
writeln('Наибольший рост = ',max);
end.
Не нашли ответ?
Похожие вопросы