вычисление суммы элементов главной диагонали квадратной матрицы (в Паскале)

Question

Информатика

Потап

14 мая, 12:52

вычисление суммы элементов главной диагонали квадратной матрицы (в Паскале)

+1

Ответы (1)

Знаете ответ?

Генриетта · Answer 1

var

a: array[1 ... 4, 1 ... 4] of integer;

i, j, s, n: integer;

begin

for i : = 1 to 4 do begin

for j : = 1 to 4 do begin

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

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

inc (n) ;

if (n mod 4 = 0) then writeln;

end;

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

end;

writeln (s) ;

end.