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

olyatko1984    3   24.06.2019 23:00    5