Нужно срочно Массив 5х5 вывисти нулеве индексы. до 25 строк.
<cut >
uses crt;
var a:array[1..5,1..5] of integer;
i:integer;
j:integer;
BEGIN
clrscr;
For i:=1 to 5 do begin
For j:=1 to 5 do begin
Write('a[',i,',',j,']=');
Readln(a[i,j]);
end;
end;
For i:=1 to 5 do begin
For j:=1 to 5 do begin
If a[i,j]=0 then writeln(i,',',j);
end;
end;
Readln;
END.