Даны массив (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.
Не нашли ответ?
Похожие вопросы