Составить программу на нахождение макимального значения в массиве чисел.
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.
begin for i:=1 to N do readln(A[i]);