составить программу в паскале по условию

[dukkill]

найти максимальное число в матрице.

[g101k]

program Exmp;

var
  Ar: array [0..9] of Integer;
  i: Integer;
  Max: Integer;
begin
  for i := 0 to 9 do
  begin
    Ar[i] := Random(10); // Èëè ReadLn(Ar[i]); äëÿ ðó÷íîãî ââîäà
    Write('[',Ar[i],']')
  end;
  Writeln;

  for i := 0 to 9 do
    if Max < Ar[i] then
      Max := Ar[i];
  Writeln(Max);
  Readln;

end.

[Zer0]

для конкретного случая - да, подойдет
Но если будет не рандом, и элементы будут отрицательными, то такая программа напишет, что максимум = 0

Нужно всего чуть-чуть изменить код:

Max:=Ar[0];
 for i := 1 to 9 do
    if Max < Ar[i] then
      Max := Ar[i];
  Writeln(Max);