Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

В квадратной матрице найти количество элементов равных "0"

Ответ оставил Гость

Var
  a: array [1..N,1..N] of real;
  i: integer;
  j: integer;
  kol: real;

begin
// ввести значения массива a вашим любимым способом
for i:=1 to N do
 for j:=1 to N do
  if a[i,j]=0 then
   kol=kol+1;
write(Количество нулей: , kol);
end.