Pascal Подсчет суммы элементов двухмерного массива

[#Azamat]

Программа подсчитывает сумму элементов двухмерного массива.

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
readln( a[i,j] );
s:=s+a[i,j];
end;
end;
writeln( 'Сумма элементов массива = ', s );
end.

Автор: Неизвестен