Решение в паскале abc! "дан массив a размера n. вывести его элементы в следующем порядке: a1, an, a2, an−1, a3, an−2, … ." вот что я попытался решить, не могу ввод осуществить корректный. var b: array[1..10] of integer; a: array[1..10] of integer; k, s, n, i: integer; begin read(n); for i: =1 to n do begin readln(b[i]); if i mod 2=1 then begin b[i]: = a[i-k]; k: =k+1; end; if i mod 2=0 then begin b[i]: =a[n-s]; s: =s+1; end; writeln(b[i]); end; end.

Var     u1, u2, n, i: longint;     a: array[1..10000] of longint; begin     readln(n);   for i : = 1 to n do     read(a[i]);   u1 : = 1;   u2 : = n;   while (u1  < u2) do   begin     write(a[u1],' ',a[u2],' ');     inc(u1); dec(u2)     end;   if u1 = u2 then     write(a[u1]) end.

program babo4ka;

uses crt,graphABC;

begin

setwindowsize(600,600);

line(263,47,220,5);

line(300,47,340,5);

setbrushcolor(clblack);

circle(283,70,30);

setbrushcolor(clyellow);

circle(198,180,65);

circle(371,180,65);

circle(159,340,100);

circle(410,340,100);

setbrushcolor(clred);

ellipse(180,145,240,220);

ellipse(330,145,390,220);

setbrushcolor(clbrown);

ellipse(260,100,310,500);

setbrushcolor(clblue);

ellipse(90,270,140,333);

ellipse(430,270,480,333);

setbrushcolor(clgreen);

ellipse(155,320,205,385);

ellipse(363,320,413,385);

end.

Объяснение:

// pascalabc.net 3.3, сборка 1611 от 06.01.2018 // внимание! если программа не работает, обновите версию! function gcd_lcm(a,b: integer): (integer,integer); begin   var c: =a*b;   while b> 0 do (a,b): =(b,a mod b); // a - нод   result: =(a,c div a) end; begin   var (a,b): =readinteger2('введите два натуральных числа: ');   var (нод,нок): =gcd_lcm(a,b);   writeln('нод = ',нод, ', нок = ',нок) end. пример введите два натуральных числа: 13624 320 нод = 8, нок = 544960