ХЕЛП МИ ПЛИЗЛюди, пожалуйста помогите очень срочно нужно

Question

ХЕЛП МИ ПЛИЗЛюди, пожалуйста помогите очень срочно нужно

---

Comments

Язык программирования какой?

---

Паскаль? Судя по [1..10]

---

да

---

паскаль

Answer 1

Var a: array[1..10] of Integer;
i,s,d: Integer;
begin
for i:=1 to 10 do
begin
a[i]:=Random(10-1+1)+1;
writeln('Число: ',a[i]);
end;
for s:=1 to 10 do
begin
if a[s] mod 2=0 then inc(a[s]);
end;
for d:=1 to 10 do
begin
writeln(a[d]);
end;
end.