Автор: Bronislav

Bronislav — Sat, 20 Oct 2018 07:02:37 +0000

program Param14;//pabc.net

procedure Split(a: array of integer; var b, c: array of integer);
begin
  b := a[::2];
  c := a[1::2];
end;

begin
  var a := Arr(1, 2, 3, 4, 5, 6, 7, 8, 9, 10);
  var b, c: array of integer;
  Split(a, b, c);
  b.Println;//1 3 5 7 9
  c.Println//2 4 6 8 10
end.

program Param14;//pabc.net

procedure Split(a: array of integer; var b, c: array of integer);

begin

b := a[::2];

c := a[1::2];

end;

begin

var a := Arr(1, 2, 3, 4, 5, 6, 7, 8, 9, 10);

var b, c: array of integer;

Split(a, b, c);

b.Println;//1 3 5 7 9

c.Println//2 4 6 8 10

end.

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

Автор: Bronislav