Помогите написать программу по информатике.Напишите программу которая выдает произведения только четных целых чисел.
Answers & Comments
nazarrisd
Const n= 10; var i,m: integer; aa:array[1..n] of integer; begin m:= 1; for i:= 1 to n do begin aa[i]:= random(100); if (aa[i] mod 2 = 0) then m:= aa[i] * m; end; writeln(m); end.
Answers & Comments
var i,m: integer;
aa:array[1..n] of integer;
begin m:= 1;
for i:= 1 to n do
begin
aa[i]:= random(100);
if (aa[i] mod 2 = 0) then m:= aa[i] * m;
end;
writeln(m);
end.