Пщдсчет отрицательных чисел в массиве

[Ehha1234]

Решила задачу, условие: Дана матрица W(4×4), содержащая положительные и отрицательные числа. Вместо отрицательных элементов в матрицу записать нули, посчитать их количество.

У меня k не считается, почему помогите

Program Z_25;
uses crt;
var
a: array [1..4,1..4] of integer;
i, j, k, n: integer;
begin
clrscr;
writeln ('введите кол-во строк и столбцов');
readln(n);
for i:=1 to n do
for j:=1 to n do
begin
write ('a[',i,',',j,']=');
readln(a[i,j]);
end;
k:=0;
for i:=1 to n do
for j:=1 to n do
begin
if a[i,j]<0 then a[i,j]:=0;
if a[i,j]<0 then k:=k+1;
end;
for i:=1 to n do
for j:=1 to n do
writeln ('a[',i,j,']=',a[i,j]);
writeln('k=',k);
readln;
end.

[_-Re@l-_]

for i:=1 to n do
for j:=1 to n do
begin

замени на:

for i:=1 to n do
begin
for j:=1 to n do
begin
....

[Grag]

Так ты подумай, что наделано-то!!! Сначала отрицательный элемент матрицы заменяется 0, а потом этот элемент матрицы (уже 0) проверяется на условие a[i,j]<0. А ведь 0 не может быть меньше 0. Вот и не считается... Не верная реализация алгоритма...

for i:=1 to n do
for j:=1 to n do
begin
if a[i,j]<0 then a[i,j]:=0;
if a[i,j]<0 then k:=k+1;
end;

Напиши вот так

if a[i,j]<0 then
  begin
    Inc(k);
    a[i,j]:=0
  end