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.

Answer 2

это 4 задача

Answer 3

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.

Answer 4

Это 4 задача

Answer 5

3*