Дан массив из 10 элементов. преобразовать массив, прибавив к нечётным элементам единицу.пример массива: 1 2 3 4 5 6 7 8 9 10.

Program znanija;var i,n:integer;a:array[1..10] of integer;beginfor i:=1 to 10 do begin  writeln('Введите ',i,'-ый элемент массива');  read(a[i]);  if a[i] mod 2 = 1 then a[i]:=a[i]+1;  end;writeln;writeln; writeln('Новый массив:');for i:=1 to 10 do   writeln(a[i],'(',i,')');end.
  

город - Крупный населённый пункт, административный, торговый и промышленный центр

поселок - Российской империи — населённый пункт, в различных землях (краях, странах) имел различные названия подсе́лье, подсёлок, присёлок и посёлок, и означал поселение людей близ какого-либо селенья (села или деревни), людьми со стороны, а если из того же селенья, то это был вы́селок.

село - один из видов населённых пунктов России, Украины, Белоруссии, Казахстана, Молдавии, Болгарии и Израиля, относящийся к так называемым сельским населённым пунктам. Ранее тип крестьянского поселения (наряду с деревней).

Объяснение:

Program lol (input, output);
var a, n, b, i, p,s,g m:integer;
c:real;
begin
n:=Random(10000);
writeln (n);
a:=n;
b:=0;
c:=0;
p:=1;
g:=1;
while a <> 0 do
begin
a:=a div 10;
b:=b+1;
end;
while b <> 0 do
begin
p:=1;
for m:=1 to b do
p:=p*10;
s:=(n mod p) div (p div 10);
c:=c+s;
g:=g*s;
b:=b-1;
end;
writeln (c);
writeln (g);
end.

program lol (input, output);
var a, b, i, z:integer;
begin
b:=0;
a:=3;
z:=0;
while a > 2 do
begin
read (a);
z:=0;
for I:=2 to a do
begin
if a mod I = 0 then
begin
z:=z+1;
if (a=I) and (z=1) then
b:=b+1;
end;
end;
end;
writeln (b);
end.