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

Array56. Дан целочисленный массив $$A$$ размера $$N (\leq 15)$$. Переписать в новый целочисленный массив $$B$$ все элементы с порядковыми номерами, кратными трем ($$3, 6, …$$), и вывести размер полученного массива $$B$$ и его содержимое. Условный оператор не использовать.

Решение:

program Array56;
var
  a,b:array[1..15] 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;
  K:=3;
  While(k<=N) do
    begin
     inc(k2);
     b[k2]:=a[k];
     k:=k+3;
    end;

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

program Array56;

var

a,b:array[1..15] 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;

K:=3;

While(k<=N) do

begin

inc(k2);

b[k2]:=a[k];

k:=k+3;

end;

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

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

end.

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

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

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

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

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