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

Question

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

Answer 1

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

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.