Var a:array of integer;
n,i:integer;
begin
read(n);
setlength(a,n);
for i:=0 to n-1 do read(a[i]);
writeln;
i:=0;
while i<=n-1 do begin
write(a[i]:4);
i:=i+2;
end;
end.
Тестовое решение:
5
7 1 3 2 5
7 3 5
65=16*4+1=41(в 16)
29=16+13=1D (в 16)
41
1D
___
5Е
проверка:
94=5*16+14=5Е(в 16)
ответ: 5Е
Begin
for var i=1 to n do
Writeln(i);
end.