Информатика, опубликовано 2018-08-22 23:07:36 by Гость
В массиве хранится информация о росте 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.
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.
Форма вопроса доступна на