Нужна срочно помощь решить информатику

Question

Нужна срочно помощь решить информатику

---

Comments

Все задания через масив делать?

---

Да

---

Ребята очень надо! Отправляйте по одному хотя бы заданию если знаете

---

А эти задания как-то связаны друг с другом?

---

Срочно

---

Быстрее!!!!!!!!!!!!

---

Готово в 2 задании мне условие не понятно.

Answer 1

1) var
 i,n:longint;
 a:array [1..1000] of longint;
begin
 readln(n);
 for i:=1 to n do
  begin
   a[i]:=sqr(2*i+1);
   write(a[i],' ');
  end;
end.

2) Условие мне не понятно
3)Ща будет

Comments

var
i,n,x,y:longint;
a:array [1..1000] of longint;
begin
randomize;
readln(n);
x:=1;
y:=1;
for i:=1 to n do
begin
a[i]:=random(100);
If a[i] mod 3=0
then x:=x*a[i]
else if a[i] mod 4=0 then y:=y*a[i];
write(a[i],' ');writeln;
end;
writeln(x,' ',y);
end.

---

Если числа не рандомные, а на ввод, то уберешь строки randomize, а в строчке a[i]:=random(100) поставишь read(a[i]);