Решаем задачи Абрамян на Паскале. Array111

Array111. Дан целочисленный массив размера $$N$$. Утроить в нем вхождения всех нечетных чисел.

Решение:

program Array111;

type

m = array[1..20] of Integer;

var

a, b: m;

N,Nk,i,k:Integer;

begin

Write('N: ');

Readln(N);

Writeln('A: ');

for i:=1 to N do

begin

write(i,' :');

readln(a[i]);

end;

Nk:=N;

k:=1;

for i:=1 to N do

begin

b[k]:=a[i];

if a[i] mod 2 <> 0 then

begin

Nk:=Nk+2;

k:=k+1;

b[k]:=a[i];

k:=k+1;

b[k]:=a[i];

end;

K:=k+1;

end;

N:=Nk;

a:=b;

Writeln(N);

for i:=1 to N do writeln(i,' :',a[i]);

end.

Задачи из раздела Array можно посмотреть здесь.