Question

Вдвумерном массиве 7х7 произвольных целых чисел вычислить сумму элементов, расположенных слева от побочной диагонали. определить минимальный элемент главной диагонали (значение и координаты)

Answer 1

Const
  n = 7;

var
  a: array[1..n, 1..n] of integer;
  i, j, sum, min, imin: integer;

begin
  Randomize;
  for i := 1 to n do
    for j := 1 to n do
      a[i, j] := random(100) - 50;
  writeln('Исходный массив');
  for i := 1 to n do
  begin
    for j := 1 to n do write(a[i, j]:4);
    writeln
  end;
  sum := 0;
  min := 100; //у нас в массиве числа на (-50:50)
  for i := 1 to n - 1 do
    for j := 1 to n - i do
      sum := sum + a[i, j];
  for i := 1 to n do
    if min > a[i, i] then begin
      min := a[i, i];
      imin := i
    end;
  writeln('Сумма элементов левее побочной диагонали=', sum);
  writeln('Минимальный элемент на главной диагонали=', min, ', его координаты (', imin, ',', imin, ')')
end.

Контрольный пример:

Исходный массив
  14  39  -7 -26  10 -33   9
  48 -21 -19   6   2  24 -16
  27 -41 -26  -7  16 -27 -34
  42  32 -12 -37  -9  20 -26
 -35 -20 -34  40  -3   5   1
  23  31 -11  -9  26 -28  25
  34  26 -30  11  43  19 -26
Сумма элементов левее побочной диагонали=-4
Минимальный элемент на главной диагонали=-37, его координаты (4,4)