Question

Помогите написать массив

Answer 1

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