надо изменить программу из
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)
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)
Answers & Comments
Verified answer
Программа:
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.