Ve
Vegas
program pr1;
type
matrix= array [1..5, 1..5] of integer;
var
a : matrix;
i, j,n: integer; { индексы массива }
begin
n:=0;
for i :=1 to 5 do {цикл для перебора всех строк}
for j :=1 to 5 do {перебор всех элементов строки по столбцам}
readln ( a [ i, j ]); {ввод с клавиатуры элемента, стоящего в i -й строке и j -м столбце}
for i :=1 to 5 do
begin
for j :=1 to 5 do
write ( a [ i, j ],' ');
writeln();
end;
for i :=1 to 5 do
for j :=1 to 5 do
if (a[i,j]>=0) then n:=n+1;
writeln('n=',n);
end.