Вывести на экран максимальный элемент массива, массив заполняется с клавиатуры.

Программа может выглядеть так:

uses crt;

const m=1000;

type Mas=array [1 ... m] of integer;

Var A: Mas;

i, Max, n: integer;

Begin

ClrScr;

Write ('n = ') ;

ReadLn (n) ;

for i:=1 to n do

begin

Write ('A[', i, ']=') ;

ReadLn (A[i]) ;

end;

Max:=A[1];

for i:=2 to n do

if A[i]>Max then Max:=A[i];

Writeln;

WriteLn ('Max = ', Max) ;

ReadLn;

end.