Ребята, выручайте!

+ 0 -

Alyonasidorova

10 мая 2013 г., 14:01:36 (10 лет назад)

const
  m = 5;
  n = 8;

var
  a: array[1..m, 1..n] of integer;
  i, j, im, jm, max: integer;

begin
  Randomize;
  Writeln('Исходный массив');
  max := -777; {заведомо меньше меньшего}
  for i := 1 to m do
  begin
    for j := 1 to n do
    begin
      a[i, j] := Random(101) - 50;
      Write(a[i, j]:4);
      if max < a[i, j] then begin
        max := a[i, j];
        im := i;
        jm := j
      end
    end;
    Writeln
  end;
  writeln('Максимальный элемент х[', im, ',', jm, ']=', max)
end.

Тестовое решение:
Исходный массив
 -10 -28 -32  40 -26 -18  17   1
 -35 -13  19 -38  -9 -12  47 -41
 -35  23 -44 -18 -13 -13  37  12
 -11  33  15 -34 -31  12  -3   8
 -13 -23 -41 -11 -45  15   1 -27
Максимальный элемент х[2,7]=47