Задача

[tamerlan777]

Заполнить двумерный массив; найти сумму всез значений; выдать на экран.

[Летучий_СкилетиК]

var a:array [1..50,1..50]of integer;
    i, j, n, s:integer;
begin
read(n);
s:=0;
for i:=1 to n do
for j:=1 to n do
begin
    read(a[i,j]);
    s:=s+a[i,j];
end;
write(s);
end.