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

Array16. Дан массив $$A$$ размера $$N$$. Вывести его элементы в следующем порядке: $$A_1, A_N, A_2, A_{N-1}, A_3, A_{N-2}, …$$ .

Решение:

program Array16;
var
  a:array[1..10] of integer;
  N,i:Integer;

begin
  Write('N:');
  Readln(N);
  for i:=1 to N do
   begin
    write(i,' :');
    readln(a[i]);
   end;

  i:=1;
  While (i<=N div 2) do
   begin
    writeln(i,' : ',a[i]);
    writeln(N-i+1,' : ',a[N-i+1]);
    inc(i);
   end;
  if n mod 2 <> 0 then     writeln((N div 2)+1,' : ',a[(N div 2)+1]);
end.

program Array16;

var

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

N,i:Integer;

begin

Write('N:');

Readln(N);

for i:=1 to N do

begin

write(i,' :');

readln(a[i]);

end;

i:=1;

While (i<=N div 2) do

begin

writeln(i,' : ',a[i]);

writeln(N-i+1,' : ',a[N-i+1]);

inc(i);

end;

if n mod 2 <> 0 then writeln((N div 2)+1,' : ',a[(N div 2)+1]);

end.

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

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

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.

Ответить

Anton

18.11.2015 в 14:38

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

Ответить

Ann

24.11.2017 в 22:49

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

Ответить

//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.

Ответить

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

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

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

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