Выяснить,имеются ли в матрице ненулевые элементы.

[Брутальный М.]

Дана целочисленная матрица порядка 15.Выяснить,имеются ли в матрице ненулевые элементы,и если имеются,то указать индексы всех ненулевых элементов.

[Seqular]

Попытки решения есть? Напрашивается вариант простого прохода по всем элементам

For i := 1 to 15 do
     For j := 1 to 15 do
          If (a[i,j] <> 0) then Writeln('a[',i,',',j,'] не равен 0');

Проверь баланс кавычек на всякий случай

[Tkirill]

uses crt;
var
mas:array[1..15,1..15] of integer;
i,j:integer;
begin
clrscr;
randomize;
for i:=1 to 15 do
begin
for j:=1 to 15 do
begin
mas[i,j]:=random(10);
write(mas[i,j],' ');
end;
end;
writeln;
for i:=1 to 15 do
begin
for j:=1 to 15 do
begin
if mas[i,j]<>0 then writeln('mas[',i,',',j,']');
end;
end;
readln;
end.