В одномерном массиве А(10) найти наибольший элемент .решение в паскаль
В одномерном массиве А(10) найти наибольший элемент .решение в паскаль
Гость
Ответ(ы) на вопрос:
Гостьvar
a:array[1..1000000]of integer;
i,max,n:integer;
begin
readln(n);
for i:=1 to n do
readln(a[i]);
for i:=1 to n do begin
if a[i]>max then
max:=a[i];
end;
writeln('максимальный элемент массива=',max);
end.
Не нашли ответ?
Похожие вопросы