Question

Паскаль. В двумерном массиве (5 на 5) подсчитать количество нулевых элементов , а ко всем отрицательным числам " прибавить" символ * т.е. выводится табличка массива, если число отрицательное ( например -3), то оно выводится с символом * (получается -3*) , потом ещё выводится количество нулевых элементов.​

Answer 1

const

 n=5;

var

 a:array [1..n,1..n] of integer;

 i,j,count:integer;

begin

 count:=0;

 for i:=1 to n do

   begin

     for j:=1 to n do

       begin

         a[i,j]:=random(101)-50;

         if a[i,j]<0 then

           write(a[i,j],'* ')

             else write(' ',a[i,j],' ');

         if a[i,j] = 0 then inc(count);

       end;

     writeln;

   end;

 writeln('Count:',count);

end.