Надо изменить программу из 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)

sakdkk    2   15.12.2021 19:02    1