Дан массив заданный случайным образом. Найти s и p элементов, кратных 3-ём и положительных, кол-во всех остальных.
Answers & Comments
SanGreen74
Const n=10; var a:array[1..n] of integer; s,p,k,i:integer; begin s:=0; p:=1; randomize; for i:=1 to n do begin a[i]:=Random(100); if (a[i]>0) and (a[i] mod 3 =0) then k:=k+1; p:=p*a[i]; s:=s+a[i]; write(a[i], ' ') end; writeln('Сумма = ',s); writeln('Произведение = ',p); writeln('Количество положительных и кратных 3-м = ',k); end.
Answers & Comments
n=10;
var a:array[1..n] of integer;
s,p,k,i:integer;
begin
s:=0;
p:=1;
randomize;
for i:=1 to n do begin
a[i]:=Random(100);
if (a[i]>0) and (a[i] mod 3 =0) then k:=k+1;
p:=p*a[i];
s:=s+a[i];
write(a[i], ' ')
end;
writeln('Сумма = ',s);
writeln('Произведение = ',p);
writeln('Количество положительных и кратных 3-м = ',k);
end.