Заполнить двумерный массив 6*6 определить сумму элементов вывести номера строк

Question

Информатика

Настюля

23 августа, 13:03

Заполнить двумерный массив 6*6 определить сумму элементов вывести номера строк

+1

Ответы (1)

Знаете ответ на вопрос?

Георгич · Answer 1

Const n = 6;

var a: array [1 ... n, 1 ... n] of integer; s, i, j, k: integer;

begin

writeln ('Введите элементы массива : ') ;

for i : = 1 to n do

begin

for j : = 1 to n do

begin

readln (a[i, j]) ;

end;

end;

for i : = 1 to n do

begin

for j : = 1 to n do

begin

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

end;

end;

writeln ('Сумма элементов = ', s) ;

writeln ('Номера строк : ', n) ;

readln;

end.