Заполнить массив случайными числами из промежутка (1-100) и определить в массиве W[1..30]произведение нечётных чисел кратных 5
Answers & Comments
degtyarev327
Var i,pr:integer; w:array[1..30] of integer; begin pr:=1; for i:=1 to 30 do begin w[i]:=random(101); if (w[i] mod 2<>0) and (w[i] mod 5=0) then pr:=pr*w[i]; end; writeln(pr); end.
Answers & Comments
w:array[1..30] of integer;
begin
pr:=1;
for i:=1 to 30 do begin
w[i]:=random(101);
if (w[i] mod 2<>0) and (w[i] mod 5=0) then pr:=pr*w[i];
end;
writeln(pr);
end.