1. заполнить матрицу из 8 строк и 5 столбцов случайными числами в интервале [-10,10] выведите ее на экран.
2. устроить все элементы матрицы и вывести ее на экран.
3.найти минимальный и максимальный элементы матрицы и их номера форма вывода

минимальный элемент a[3,4] = -6

максимальный элемент
a [2,2] =10

4.вывести на экран строку, сумма элементов которой максимальна. формат вывода:
строка 2: 3 5 8 9 8

ответ:

program array8x5;

var

  a: array [1..8, 1..5] of integer;

  i, j, imin, imax, jmin, jmax, s, smax: integer;

begin

  randomize;

  for i : = 1 to 8 do begin

    writeln;

    for j : = 1 to 5 do begin

      a [i, j] : = random (21) - 10;

      write (a [i, j] : 3, ' ');

    end;

  end;

  writeln;

  for i : = 1 to 8 do begin

    writeln;

    for j : = 1 to 5 do begin

      a [i, j] : = a [i, j] * 3;

      write (a [i, j] : 3, ' ');

    end;

  end;

  imin : = 1;

  imax : = 1;

  jmin : = 1;

  jmax : = 1;

  for i : = 1 to 8 do begin

    for j : = 1 to 5 do begin

      if a [i, j] > a [imax, jmax] then begin

        imax : = i;

        jmax : = j;

      end;

      if a [i, j] < a [imin, jmin] then begin

        imin : = i;

        jmin : = j;

      end;

    end;

  end;

  writeln; writeln;

  writeln ('минимальный элемент   а[', imin, ',', jmin, '] = ', a [imin, jmin]);

  writeln ('максимальный элемент а[', imax, ',', jmax, '] = ', a [imax, jmax]);

  imax : = 1;

  smax : = - maxint;

  for i : = 1 to 8 do begin

    s : = 0;

    for j : = 1 to 5 do begin

      s : = s + a [i, j];

    end;

    if s > smax then begin

      smax : = s;

      imax : = i;

    end;

  end;

  write ('строка ', imax, ': ');

  for j : = 1 to 5 do

    write (a [imax, j], ' ');

  writeln;

  readln;

end.

ответ:гиперсілтемелер,мазмұн,түсіндірме

Объяснение: