Question

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

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.