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

Автор: Bronislav

Bronislav — Mon, 30 Apr 2018 09:11:23 +0000

//PascalABC.NET
begin
  var l:=Lst(0,1,2,3,4,5,6);
  var l1:=l[l.Count div 2:];   //3,4,5,6
  Reverse(l1);                 //6,5,4,3
  l1:=l.Interleave(l1).ToList; //0,6,1,5,2,4,3,3
  if l.Count.IsOdd then
    l1.RemoveAt(l.Count - 1);
  l1.Println;                  //0,6,1,5,2,4,3
end.

//PascalABC.NET

begin

var l:=Lst(0,1,2,3,4,5,6);

var l1:=l[l.Count div 2:]; //3,4,5,6

Reverse(l1); //6,5,4,3

l1:=l.Interleave(l1).ToList; //0,6,1,5,2,4,3,3

if l.Count.IsOdd then

l1.RemoveAt(l.Count - 1);

l1.Println; //0,6,1,5,2,4,3

end.

Автор: Ann

Ann — Fri, 24 Nov 2017 18:49:33 +0000

помогите, эту же задачу в питоне

Автор: Anton

Anton — Wed, 18 Nov 2015 10:38:53 +0000

В ответ на Кирилл. Хорошо вам... у вас arr.Length есть ... в моём детстве у нас такого не было :) Это же PascalABC.NET?

Автор: Кирилл

Кирилл — Tue, 17 Nov 2015 17:37:16 +0000

uses PT4;
var n,i:integer;
    arr:array of real;
begin
  Task('Array16');
read(n);
SetLength(arr,n);
for i:=0 to arr.length-1 do
  read(arr[i]);
//Цикл для массива с четным числом элементов
i:=0;
repeat
    write(arr[i]);
    write(arr[arr.Length-i-1]);
    inc(i);
until i >= arr.Length div 2;
//Если число элементов массива нечётное, то выводим последний необходимый
//элемент
if arr.Length mod 2  0 then write(arr[arr.Length-i-1]);
end.

uses PT4;

var n,i:integer;

arr:array of real;

begin

Task('Array16');

read(n);

SetLength(arr,n);

for i:=0 to arr.length-1 do

read(arr[i]);

//Цикл для массива с четным числом элементов

i:=0;

repeat

write(arr[i]);

write(arr[arr.Length-i-1]);

inc(i);

until i >= arr.Length div 2;

//Если число элементов массива нечётное, то выводим последний необходимый

//элемент

if arr.Length mod 2 0 then write(arr[arr.Length-i-1]);

end.