Задание 2 информатика как инструментом нарисован замена рисунок расплетина вал кривая линия

Question

Информатика: Задание 2 информатика как инструментом нарисован замена рисунок расплетина вал кривая линия​

saenkolydmila · Accepted Answer

//PascalABC.NET версия 3.2, сборка 1389

//Если программа не запускается, то обновите версию

uses System.Linq;

begin

writeln('III');

var a := ReadArrInteger('Документы', ReadInteger('n=')).ToList;

writeln;

while a.Any() do

begin

write(a[0], ' ');

a.RemoveAt(0);

if not a.Any then break;

write(a.Last, ' ');

a.RemoveAt(a.Count - 1);

if not a.Any then break;

var n := 0;

if a.Count > 1 then n := a.Count div 2 - 1;

write(a[n], ' ');

a.RemoveAt(n);

end;

end.

Объяснение:

Задание 2 информатика как инструментом нарисован замена рисунок расплетина вал кривая линия​