Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.50/8: Рейтинг темы: голосов - 8, средняя оценка - 4.50
0 / 0 / 1
Регистрация: 24.01.2012
Сообщений: 14
1

Ввести массив а[1], а [2].а[n] целых чисел.Поменять в нем местами соседние элементы, стоящие на четных местах, с элементами, стоящими на нечетных

24.01.2012, 20:12. Просмотров 1550. Ответов 1
Метки нет (Все метки)

Ввести массив а[1], а [2], .... а[n] целых чисел. Поменять в нем местами соседние элементы, стоящие на четных местах, с элементами, стоящими на нечетных местах.
Вот я решила,но что-то не получается.Где у меня ошибка?Подскажите пожалуйста.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 Const n=10;
Var
A:array [1..n] of integer;
i,t:integer;
Begin {[1;100]}
Randomize;
            for i:= 1 to n do begin
           A [i]:=random (101);
            writeln (a[i]:4);
             end;
             writeln;
if a[i] mod 2=0 then begin
t:=a[1];
for i:=1 to n-1 do
a[i]:=a[i+1];
a[n]:=t;
end;
for i:=1 to n do writeln(a[i]:4);
end.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
24.01.2012, 20:12
Ответы с готовыми решениями:

Массив: поменять местами соседние элементы, стоящие на четных местах, с элементами, стоящими на нечетных
В заданном одномерном массиве, поменять местами соседние элементы, стоящие на четных местах, с...

Поменять местами соседние элементы, стоящие на четных местах, с элементами, стоящими на нечетных местах.
В заданном одномерном массиве поменять местами соседние элементы, стоящие на четных местах, с...

Поменять местами соседние элементы массива, стоящие на чётных местах с элементами, стоящими на нечётных местах
В заданном одномерном массиве поменять местами соседние элементы,стоящие на чётных местах,с...

Массивы: поменять местами соседние элементы, стоящие на четных местах, с элементами ,стоящими на нечетных местах
В заданном одномерном массиве поменять местами соседние элементы ,стоящие на четных местах ,с...

1
Модератор
61124 / 45829 / 31638
Регистрация: 18.05.2008
Сообщений: 110,366
24.01.2012, 20:18 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
uses crt;
Const n=10;
Var  A:array [1..n] of integer;
     i,t:integer;
Begin {[1;100]}
Randomize;
for i:= 1 to n do
 begin
  A [i]:=random (101);
  write (a[i]:4);
 end;
writeln;
i:=1;
while i<=n do
 begin
  t:=a[i];
  a[i]:=a[i+1];
  a[i+1]:=t;
  i:=i+2;
 end;
for i:=1 to n do write(a[i]:4);
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
24.01.2012, 20:18

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Поменять местами соседние элементы массива, стоящие на четных местах, с элементами, стоящими на нечетных
Задача на массивы: В заданном одномерном массиве поменять местами соседние элементы, стоящие на...

В заданном одномерном массиве поменять местами соседние элементы, стоящие на четных местах, с элементами, стоящими на нечетных местах
1)В заданном одномерном массиве поменять местами соседние элементы, стоящие на четных местах, с...

Поменять местами соседние элементы массива, стоящие на чётных местах, с элементами, стоящими на нечётных места
Пожалуйста помогите решить задачку... сессия через 2 дня((((( В заданном одномерном массиве...

php В одномерном массиве поменять местами соседние элементы стоящие на чётных местах с элементами стоящими на нечётных
В одномерном массиве поменять местами соседние элементы стоящие на чётных местах с элементами...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.