Информатика

Сенюра

2 июня, 06:21

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