Question

Надо изменить программу из program nuli; var M:array[1..12] of integer; i:integer; k:string; Begin randomize; k:='нет'; for i:=1 to 12 do M[i]:= random(10); for i:=1 to 12 do write(M[i]:3); writeln(); for i:=1 to 12 do begin if M[i]=0 then write(' + ') else write(' - '); end; writeln(); write(); end. на программу, показывающую, сколько нулей в выводе (если 2, то программа должна писать 2)

Answer 1

Программа:

Pascal:

program nuli;

var M:array[1..12] of integer;

i, n: integer;

k:string;

Begin

randomize;

k:='нет';

for i:=1 to 12 do M[i]:= random(10);

for i:=1 to 12 do write(M[i]:3);

writeln();

for i:=1 to 12 do begin

if M[i]=0 then write(' + ') else write(' - ');

end;

writeln();

write();

for i := 1 to 12 do

 if M[i] = 0 then inc(n);

writeln(n);

end.

Answer 2

Ваша программа написана на языке Pascal и выполняет генерацию массива случайных чисел от 0 до 9 и их вывод с символами "+++" для нулей и "+-+" для ненулевых значений. Чтобы изменить программу для подсчета количества нулей и вывода этого количества, вам нужно внести некоторые изменения.

Вот измененный код:

program nuli;
var
  M: array[1..12] of integer;
  i, countZero: integer;
  k: string;

begin
  randomize;
  countZero := 0;

for i := 1 to 12 do
    M[i] := random(10);

for i := 1 to 12 do
    write(M[i]:3);
  
  writeln();
  
  for i := 1 to 12 do
  begin
    if M[i] = 0 then
    begin
      write('+++');
      Inc(countZero);
    end
    else
      write('+-+');
  end;

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

end.

В этом коде добавлено новое переменная `countZero`, которая используется для подсчета количества нулей в массиве. Когда программа обнаруживает нулевой элемент, она увеличивает счетчик `countZero`. После вывода всего массива, программа выводит количество нулей в массиве.