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

Array54. Дан целочисленный массив $$A$$ размера $$N$$. Переписать в новый целочисленный массив $$B$$ все четные числа из исходного массива (в том же порядке) и вывести размер полученного массива $$B$$ и его содержимое.

Решение:

program Array54;

var
  a,b:array[1..10] of Integer;
  N,k,k2:Integer;


begin
  Write('N: ');
  Readln(N);

  Writeln('A: ');
  for k:=1 to N do
   begin
    write(k,' :');
    readln(a[k]);
   end;

  k2:=0;
  for k:=1 to N do
    if (a[k] mod 2)=0 then
      begin
        inc(k2);
        b[k2]:=a[k]
      end;


  Writeln('B(',k2,'):');
  for k:=1 to k2 do writeln(k,' :',b[k]);
end.

program Array54;

var

a,b:array[1..10] of Integer;

N,k,k2:Integer;

begin

Write('N: ');

Readln(N);

Writeln('A: ');

for k:=1 to N do

begin

write(k,' :');

readln(a[k]);

end;

k2:=0;

for k:=1 to N do

if (a[k] mod 2)=0 then

begin

inc(k2);

b[k2]:=a[k]

end;

Writeln('B(',k2,'):');

for k:=1 to k2 do writeln(k,' :',b[k]);

end.

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

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

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

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