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

Array110. Дан целочисленный массив размера $$N$$. Продублировать в нем все четные числа.

Решение:

program Array110;
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:=2*N;
  k:=1;
  for i:=1 to N do
   begin
    b[k]:=a[i];
    K:=k+1;
    b[k]:=a[i];
    K:=k+1;
   end;

  N:=Nk;
  a:=b;
  Writeln(N);
  for i:=1 to N do writeln(i,' :',a[i]);
end.

program Array110;

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:=2*N;

k:=1;

for i:=1 to N do

begin

b[k]:=a[i];

K:=k+1;

b[k]:=a[i];

K:=k+1;

end;

N:=Nk;

a:=b;

Writeln(N);

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

end.

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

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

Комментарии:

Добавить комментарий Отменить ответ