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

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)