Const
m=5;
n=8;
var
a:array[1..m,1..n] of integer;
i,j,k:integer;
begin
Randomize;
Writeln('Сгенерированный массив');
k:=0;
for i:=1 to m do begin
for j:=1 to n do begin
a[i,j]:=Random(21)-10;
Write(a[i,j]:4);
if a[i,j]=0 then Inc(k)
end;
Writeln
end;
if k=0 then Writeln('В массиве нет нулевых элементов')
else begin
Write('Нулевые элементы: ');
for i:=1 to m do
for j:=1 to n do
if a[i,j]=0 then Write('[',i,',',j,'] ')
else a[i,j]:=1;
Writeln;
Writeln('Результирующий массив');
for i:=1 to m do begin
for j:=1 to n do Write(a[i,j]:2);
Writeln
end
end;
Writeln('Количество нулевых элементов равно ',k)
end.
Тестовое решение
Сгенерированный массив
-4 -2 -6 9 4 -10 2 -9
5 -6 10 5 0 1 3 7
-3 7 10 3 -9 -8 4 0
10 -4 0 5 -10 -9 0 3
6 -4 -8 -2 5 1 4 -2
Нулевые элементы: [2,5] [3,8] [4,3] [4,7]
Результирующий массив
1 1 1 1 1 1 1 1
1 1 1 1 0 1 1 1
1 1 1 1 1 1 1 0
1 1 0 1 1 1 0 1
1 1 1 1 1 1 1 1
Количество нулевых элементов равно 4