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.

Answer 2

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