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

Array57. Дан целочисленный массив $$A$$ размера $$N$$. Переписать в новый целочисленный массив $$B$$ того же размера вначале все элементы исходного массива с четными номерами, а затем — с нечетными: $$A_2, A_4, A_6, …, A_1, A_3, A_5, …$$ . Условный оператор не использовать.

Решение:

program Array57;
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;
  K:=1;
  While(k<=N) do
   begin
    inc(k2);
    b[k2]:=a[k];
    k:=k+2;
   end;

  K:=2;

  While(k<=N) do
    begin
     inc(k2);
     b[k2]:=a[k];
     k:=k+2;
    end;
  writeln(k2,N);

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

program Array57;

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;

K:=1;

While(k<=N) do

begin

inc(k2);

b[k2]:=a[k];

k:=k+2;

end;

K:=2;

While(k<=N) do

begin

inc(k2);

b[k2]:=a[k];

k:=k+2;

end;

writeln(k2,N);

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

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

end.

Основано на решении от olegst1975:

var
  n,i:integer;
  a,b:array [1..10]of integer;
begin
  readln(n);
  for i:=1 to n do readln(a[i]);

  for i:=1 to n div 2 do b[i]:=a[2*i];
  for i:=1 to n div 2 do b[(n div 2)+i]:=a[2*i-1];

  for i:=1 to n do writeln(b[i]);
end.

var

n,i:integer;

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

begin

readln(n);

for i:=1 to n do readln(a[i]);

for i:=1 to n div 2 do b[i]:=a[2*i];

for i:=1 to n div 2 do b[(n div 2)+i]:=a[2*i-1];

for i:=1 to n do writeln(b[i]);

end.

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

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

Хорошо и просто! Может строчку 36 подчистить — не пойму, что это.
От себя

[crayon-673e39737396f567002317 inline="true" ]
var
  n,i:integer;    
  a,b:array [1..10]of integer;
begin 
  readln(n);      
  for i:=1 to n do readln(a[i]);
  for i:=1 to n div 2 do b[i]:=a[2*i];
  for i:=(n div 2)+1 to n do b[i]:=a[2*(i-(n div 2))-1];
  for i:=1 to n do writeln(b[i]);
end.

[crayon-673e39737396f567002317 inline="true" ]

var

n,i:integer;

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

begin

readln(n);

for i:=1 to n do readln(a[i]);

for i:=1 to n div 2 do b[i]:=a[2*i];

for i:=(n div 2)+1 to n do b[i]:=a[2*(i-(n div 2))-1];

for i:=1 to n do writeln(b[i]);

end.

[/crayon]

Ответить

а вот здесь я бы на вашем месте встал и пошёл пить чай. 🙂
Вы явно устали и усложняете себе жизнь…. очень 🙂

var
  n,i:integer;
  a:array [1..10]of integer;
begin
  readln(n);
  for i:=1 to n do readln(a[i]);

  for i:=1 to n div 2 do writeln(a[2*i]);
  for i:=1 to n div 2 do writeln(a[2*i-1]);
end.

var

n,i:integer;

a:array [1..10]of integer;

begin

readln(n);

for i:=1 to n do readln(a[i]);

for i:=1 to n div 2 do writeln(a[2*i]);

for i:=1 to n div 2 do writeln(a[2*i-1]);

end.

Ответить

ай… это мне пора пить чай… массив б обязателен, по условию 🙁
удалось, только чуть размазать формулу

var
  n,i:integer;
  a,b:array [1..10]of integer;
begin
  readln(n);
  for i:=1 to n do readln(a[i]);

  for i:=1 to n div 2 do b[i]:=a[2*i];
  for i:=1 to n div 2 do b[(n div 2)+i]:=a[2*i-1];

  for i:=1 to n do writeln(b[i]);
end.

var

n,i:integer;

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

begin

readln(n);

for i:=1 to n do readln(a[i]);

for i:=1 to n div 2 do b[i]:=a[2*i];

for i:=1 to n div 2 do b[(n div 2)+i]:=a[2*i-1];

for i:=1 to n do writeln(b[i]);

end.

Ответить

Да просто… только выводились сначало не чётные, поправил:
Было:

program Array57;
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;
  K:=1;
  While(k< =N) do
   begin
    inc(k2);
    b[k2]:=a[k];
    inc(k,2);
   end;

  K:=2;

  While(k<=N) do
    begin
     inc(k2);
     b[k2]:=a[k];
     inc(k,2);
    end;
  writeln(k2,N);

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

program Array57;

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;

K:=1;

While(k< =N) do

begin

inc(k2);

b[k2]:=a[k];

inc(k,2);

end;

K:=2;

While(k<=N) do

begin

inc(k2);

b[k2]:=a[k];

inc(k,2);

end;

writeln(k2,N);

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

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

end.

Стало:

program Array57;
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;
   K:=2;

  While(k< =N) do
    begin
     inc(k2);
     b[k2]:=a[k];
     inc(k,2);
    end;

 K:=1;
  While(k<=N) do
   begin
    inc(k2);
    b[k2]:=a[k];
    inc(k,2);
   end;

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

program Array57;

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;

K:=2;

While(k< =N) do

begin

inc(k2);

b[k2]:=a[k];

inc(k,2);

end;

K:=1;

While(k<=N) do

begin

inc(k2);

b[k2]:=a[k];

inc(k,2);

end;

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

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

end.

Ответить

Bronislav

02.08.2018 в 13:06

program array_57;//pascalABC.net begin var n := 10; var a := ArrRandom(n, 0, 9); a.Println; var b := a[::2] + a[1::2]; b.Println end.

1
2
3
4
5
6
7

program array_57;//pascalABC.net

begin
  var n := 10;
  var a := ArrRandom(n, 0, 9); a.Println;
  var b := a[::2] + a[1::2]; b.Println
end.

Ответить
Bronislav

02.08.2018 в 13:32

выводит сначала нечетные, 6 строка изменить на

var b := a[1::2] + a[0::2];

1

var b := a[1::2] + a[0::2];

Ответить

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

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

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

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