Question

Посчитать кол-во нулей и заменить в массиве все элементы на 5.[1,10].Pascal

Answer 1

const n=10;

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

i, k: byte;

begin

k:=0;

for i:= 1 to n do

  a[i]:=random(100);

writeln('Исходный массив: ');

for i:= 1 to n do

  write(a[i],' ');

writeln(#10);

for i:=1 to n do

  if a[i]=0 then

 inc(k);

for i:= 1 to n do

  a[i]:=5;

writeln('Новый массив: ');

for i:= 1 to n do

write(a[i],' ');

writeln(#10);

writeln('Количество нулей: ',k);

end.