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

м080878 м080878    3   03.06.2019 18:00    1

Ответы
messaivi messaivi  03.07.2020 23:28
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика