дан одномерный массив запиши верный ответ

Ответ от Ксения Владимировна[мастер]
2 одномерный целочисленный массив А(N). Произведение четных по значению элементов.
const n=10;
var i,p:integer;
a:array[1..n] of integer;
begin
Randomize;
p:=1;
for i=1 to n do
begin
a:= Random(10)+1;
writeln(a);
if a mod 2 = 0 then
p:=p*a;
end;
if p=1 then writeln(0)
else writeln(p);
readln;
end.
3 одномерный целочисленный массив. Среднее арифметическое значение эл-в кратных 5.
const n=10;
var i,j,s:integer;
sr:real;
a:array[1..n] of integer;
begin
Randomize;
s:=0;
j:=0;
for i=1 to n do
begin
a:= Random(10)+1;
writeln(a);
if a mod 5 = 0 then
begin
s:=s+a;
j:=j+1;
end;
end;
if j <> 0 then sr:=s/j;
writeln(sr:5:1);
readln;
end.
4 одномерный целочислежнный массив. Сред. арифм. значение эл-ы, стоящих на четных местах и имеющих нечетные знач-я.
const n=10;
var i,j,s:integer;
sr:real;
a:array[1..n] of integer;
begin
Randomize;
s:=0;
j:=0;
for i=1 to n do
begin
a:= Random(10)+1;
writeln(a);
if i mod 2 = 0 then
if a mod 2 <> 0 then
begin
s:=s+a;
j:=j+1;
end;
end;
if j <> 0 then sr:=s/j;
writeln(sr:5:1);
readln;
end.
5 одномерный вещественный массив. Записать в обратном порядке эл-ты этого массива на том же месте.
const n=10;
var i:integer;
a:array[1..n] of real;
b: real;
begin
Randomize;
for i=1 to n do
begin
a:= Random(10)+1;
writeln(a:5:1);
end;
for i:=1 to n div 2 do
begin
b:=a[n+1-i];
a[n+1-i]:=a;
a:=b;
end;
for i:=1 to n do
writeln(a:5:1);
readln;
end.