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

Автор: Bronislav

Bronislav — Thu, 02 Aug 2018 09:32:25 +0000

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

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

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

Автор: Bronislav

Bronislav — Thu, 02 Aug 2018 09:06:54 +0000

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.

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.

Автор: Anton

Anton — Fri, 18 Mar 2016 16:05:31 +0000

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

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.

Автор: Anton

Anton — Fri, 18 Mar 2016 15:56:21 +0000

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

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.

Автор: Anton

Anton — Fri, 18 Mar 2016 15:54:52 +0000

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

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.

Автор: olegst1975

olegst1975 — Fri, 18 Mar 2016 13:29:10 +0000

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

[crayon-694f4278b6833916337185 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-694f4278b6833916337185 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]