Const N = 5;
Var m:array [1..N, 1..N] of integer; j,S,i:integer;
Begin
S:=0;
for i:=1 to N do
for j:=1 to N do begin
readln(m[i,j]); S:=S+m[i,j]; end;
writeln(S);
readln;
end.
Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.