Помогите с информатикой, умоляю!!

Question

Помогите с информатикой, умоляю!!

---

Answer 1

Const n=10;
var a:array[1..n] of integer;
prz:integer;
i:byte;
begin
prz:=1;
for i:=1 to n do
begin
a[i]:=-56+random(103);
if (i mod 2=0) and (a[i]>5) then
prz:=prz*a[i];
write(a[i],' ');
end;
writeln('prz= ',prz);
end.

Comments

это 4 задача

---

const n=10;
var a:array[1..n] of integer;
prz:integer;
i:byte;
begin
prz:=1;
for i:=1 to n do
begin
a[i]:=-56+random(103);
if i mod 2=0 then
prz:=prz*a[i];
write(a[i],' ');
end;
writeln('prz= ',prz);
end.

---

Это 4 задача

---

3*