Вычислить сумму всех элементов матрицы X размером 8*8

Для решения данной задачи используется структура с вложенным (двойным) циклом.

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

Program Zadachka;

Var i, j:ineger; S:real;

a:array [1 ... 8,1 ... 8] of real;

begin

for i:=1 to 8 do

for J:=1 to 8 do read (a[i, j]);

s:=0;

for i:=1 to 8 do

for J:=1 to 8 do S:=s+a[i, j];

Writeln (s);

end.