Составить алгоритм (блок-схема, программа на языке Pascal) для нахождения максимального элемента в массиве из 10 случайных элементов
Составить алгоритм (блок-схема, программа на языке Pascal) для нахождения максимального элемента в массиве из 10 случайных элементов
Гость
Ответ(ы) на вопрос:
Гость//PascalABC.NET 3.2 сборка 1318
Var
ar:array[1..10] of integer;
i,m:integer;
begin
m:=integer.MinValue;
for i:=1 to 10 do
begin
ar[i]:=random(101);
write(ar[i]:4);
if ar[i]>m then m:=ar[i];
end;
writeln;
write('Max=',m);
end.
Пример работы программы:
6 84 52 68 75 86 37 44 23 36
Max=86
Не нашли ответ?
Похожие вопросы