Код program mas; const n=10; var a:array [1..n] of integer; counter,i, mnoj:integer; begin counter:=0; mnoj:=1; for i:=1 to n do begin a[i]:=-10+random(19); if a[i] > 0 then begin inc(counter); mnoj:= a[i] * mnoj; end; end; for i:=1 to n do write(a[i],' '); writeln('произведение равно ', mnoj ,' количество положительных элементов= ',counter); end.
program mas;
const n=10;
var a:array [1..n] of integer;
counter,i, mnoj:integer;
begin
counter:=0;
mnoj:=1;
for i:=1 to n do begin
a[i]:=-10+random(19);
if a[i] > 0 then begin
inc(counter);
mnoj:= a[i] * mnoj;
end;
end;
for i:=1 to n do
write(a[i],' ');
writeln('произведение равно ', mnoj ,' количество положительных элементов= ',counter);
end.