Question

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

Answer 1

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.