Вопрос по информатике:
Помогите с инфой, плес
ДАН МАССИВ, ПОМЕНЯТЬ МЕСТАМИ ЭЛЕМЕНТЫ, СТОЯЩИЕ НА ЧЕТНЫХ И НЕЧЕТНЫХ МЕСТАХ, КОМАНДУ ВЕТВЛЕНИЯ НЕ ИСПОЛЬЗУЕМ.
программа для обычного паскаля
Пожаловаться
- 19.11.2017 19:50
- Информатика
- remove_red_eye 17410
- thumb_up 32
Ответы и объяснения 1
Const n=10;
var a:array[1..n] of integer;
i,h:integer;
begin
Randomize;
for i:=1 to n do begin
a[i]:=random(51);
write(a[i],' ');
end;
writeln;
for i:=1 to n div 2 do
begin
h:=a[2*i-1]; a[2*i-1]:=a[2*i]; a[2*i]:=h
end;
for i:=1 to n do write(a[i],' ');
writeln;
end.
Пример:
8 7 12 28 22 50 15 36 6 40
7 8 28 12 50 22 36 15 40 6
var a:array[1..n] of integer;
i,h:integer;
begin
Randomize;
for i:=1 to n do begin
a[i]:=random(51);
write(a[i],' ');
end;
writeln;
for i:=1 to n div 2 do
begin
h:=a[2*i-1]; a[2*i-1]:=a[2*i]; a[2*i]:=h
end;
for i:=1 to n do write(a[i],' ');
writeln;
end.
Пример:
8 7 12 28 22 50 15 36 6 40
7 8 28 12 50 22 36 15 40 6
Пожаловаться
- 20.11.2017 14:20
- thumb_up 7
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы