а(10) сандар тизбегин еки массивке болиндер, олардын бириншисине жуп номерли элементтерди жазу, ал екиншисине так номерли элементтерди жазу.
Program a10_zhup;
uses crt;
const n=10;
var a,b,c:array[1..n] of integer;
n1,n2:integer;
i:integer;
begin
clrscr;
n1:=0; n2:=0;
for i:=1 to n do
begin
write('a[',i,']=');
readln(a[i]);
end;
for i:=1 to n do
if (i mod 2=0) then
begin
n1:=n1+1;
b[n1]:=a[i];
end
else
begin
n2:=n2+1;
c[n2]:=a[i];
end;
for i:=1 to (5) do
write('b[',i,']=',b[i],' ');
writeln;
for i:=1 to 5 do
write('c[',i,']=',c[i],' ');
readln;
end.