ПОМОГИТЕ ПОЖАЛУЙСТА!!!РЕШИТЕ ЧТО-НИБУДЬ ИЗ ЭТОГО !!!!ООООЧЕНЬ ПРОШУ!!!

Question

ПОМОГИТЕ ПОЖАЛУЙСТА!!!РЕШИТЕ ЧТО-НИБУДЬ ИЗ ЭТОГО !!!!ООООЧЕНЬ ПРОШУ!!!

---

Answer 1

1.1.
Program prim;
Var a: array [1..15] of integer;
i: real;
begin
for i:= 1 to 15 do a[i]: random (10-1+1)+1;
for i:= 1 to 15 do write (a[i]: 3: 3);
end.