Составить программу ** нахождение макимального значения в массиве чисел.

Question

Составить программу на нахождение макимального значения в массиве чисел.

Answer 1

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.

Comments

begin for i:=1 to N do readln(A[i]);