Подсчет суммы элементов двухмерного массива (таблицы):
{ Подсчет суммы элементов двухмерного массива }
{ В данном случае массив - таблицы из 10 строк и 2 столбцов }
var a: array[1..10, 1..2] of integer;
s: longint;
i, j: integer;
begin
writeln('Введете 20 элементов массива');
s := 0;
for i := 1 to 10 do begin
for j := 1 to 2 do begin
read(a[i, j]);
write(' ');
s := s + a[i, j];
end;
writeln;
end;
writeln('Сумма элементов массива = ', s:2:2);
end.
