Ребята задание по программированию В данном двумерном числовом массиве A (n,n) указать индексы всех элементов равных нулю

работает

Объяснение:

var

a,b,i,j,k:longint;

s:array[1..100,1..100] of longint;

begin

read(a,b);

for i:=1 to a do begin

   for j:=1 to b do read(s[i,j]);

   end;

for i:=1 to a do begin

   for j:=1 to b do  

   if s[i,j]=0 then writeln(i,' ',j);

   end;

   end.