Срочно 50 баллов решите 3 задания

Question

Срочно 50 баллов решите 3 задания

---

Answer 1

Var
a:array [1...15] of integer;
i,r:integer;
begin
randomeize;
for i:=1 to 15 do
begin
a[i]:=random (40);
write (a[i],' ');
end;
end.

Comments

это был второй

---

а 3 реши

---

пж

---

и за второй спасибо

---

попробую

---

у меня вопрос

---

ты мальчик или девочка

---

мальчик

---

ааа

---

а это точно правильно