var a:array [1..20] of integer;
i:integer;
p:real;
begin
p:=1;
for i:= 1 to 20 do
a[i]:= Random(46)-20;
if i mod 2 = 0 then p:=p*a[i]
end;
writeln('Массив: ',a);
writeln('Произведение элементов с чётными номерами равно: ',p);
end.
var a:array [1..20] of integer;
i:integer;
p:real;
begin
p:=1;
for i:= 1 to 20 do
begin
a[i]:= Random(46)-20;
if i mod 2 = 0 then p:=p*a[i]
end;
writeln('Массив: ',a);
writeln('Произведение элементов с чётными номерами равно: ',p);
end.