Решение в паскале 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.
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.