Даны массив (A1, А2, ..., A17). Получить новый массив, состоящий из A1, A3, ..., A17, A2, A4, ..., A1 В?
Даны массив (A1, А2, ..., A17). Получить новый массив, состоящий из
A1, A3, ..., A17, A2, A4, ..., A1
В??общем если не понятно, то на скриншоте всё видно.
Нужно на паскале решить
Гость
Ответ(ы) на вопрос:
Гость Var A,B:array[1..17] of integer;
i:byte;
begin
for i:=1 to 17 do
read(a[i]);
for i:=1 to 17 do
if odd(i) then
begin
b[i]:=a[i];
write(b[i],);
end;
for i:=1 to 17 do
if not odd(i) then
begin
b[i]:=a[i];
write(b[i],);
end;
end.
Не нашли ответ?
Похожие вопросы