Найти количество нулевых элементов

[Guest]

дана квадратная вещественная матрица размерности n. Найти количество нулевых элементов, стоящих выше главной диагонали..

program z_14;
uses crt;
var a:array[1..50,1..50] of integer;
n,i,j,k:integer;
begin
clrscr;
write('vv kol-vo strok i stolbcov');
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 i<j then
k:=k+1;
end;
writeln ('k=',k);
readln;
end.

написала программу, но она не правильно считает количество нулевых элементов стоящих выше главной диагонали

 

[Dock1100]

...стоящих выше главной диагонали...

...
if i<j then
...

Знак в другую сторону поставте.

 

[Guest]

if i<j then
k:=k+1;

А считаете количество эл-ов выше главной диагонали (про нулевые элементы не слова)

Нужно добавить еще одно условие:

if (i<j) and (a[i,j]=0) then
k:=k+1;

 

[Dock1100]

А считаете количество эл-ов выше главной диагонали (про нулевые элементы не слова)

Нужно добавить еще одно условие:

if (i<j) and (a[i,j]=0) then
k:=k+1;
end.

Забыл.

 

[Guest]

Забыл.

А я вспомнил

 

[Guest]

не помогло(

Добавлено: спасибо вам огромное!!! все работает!