Написать программу, которая в заданном одномерном массиве размерности n меняет местами соседние элементы, стоящие на чётных местах, с соседними элементами, стоящими на нечётных местах.
MFINN23
2
21.05.2019 16:30
6
Другие вопросы по теме Информатика
алина3706
11.06.2019 22:00
kristinabuslae
11.06.2019 22:00
srochno6
11.06.2019 22:00
ekaterinaefimenko16
19.07.2019 13:40
XxXKotikXxX
19.07.2019 13:40
браинли56
30.09.2019 11:20
ева519
30.09.2019 11:20
bogdanzdebskiy
11.03.2021 09:34
malaya20061
11.03.2021 09:34
Популярные вопросы
- (5) составь выражения: а) ширина прямоугольника адм, что составляет 40% егодлины....
3 - Объясни смысл пословицы доход не бывает без хлопот...
1 - 24 впишите два сп и построить схему предложения мне нужна только схема: когда...
1 - Напишите сочинение на тему: гмо выход или тупик : ))...
2 - Алгоритм действий при в быту и природе...
1 - Брату 9 лет сестра втрое старше сколько лет сестре решить...
1 - Решите столбиком (сфоткать и выложить в решение) а)303,66: 14= б)16,04: 8= в)1265,04=...
2 - Вчём была суть политики тургута озала? ...
2 - Звукова модель слова яблуко, і детально який це звук описати...
2 - Найдите подобные сравнения. подумайте, какую выразительную роль они играют в...
1
var a:array[1..10] of integer;
i,tmp:integer;
begin cls;
for i:=1 to 10 do a[i]:=i;
for i:=1 to 10 do
begin
if i mod 2 = 1 then
begin
tmp:=a[i];
a[i]:=a[i+1];
a[i+1]:=tmp;
end;
end;
for i:=1 to 10 do
write(a[i], ' ');
end.