Составить программу на нахождение макимального значения в массиве чисел.
Составить программу на нахождение макимального значения в массиве чисел.
Ответ(ы) на вопрос:
Гость
program mas;
const N=(количество чисел в массиве);
var a:array[1..N] of integer;
i,max:integer;
begin
for i:1 to N do readln(A[i]);
max:=0;
for i:=1 to N do
if (A[i]>max) or (max=0) then max:=A[i];
writeln(max);
end.
Не нашли ответ?
Похожие вопросы