Форум программистов, компьютерный форум, киберфорум
PascalABC.NET
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.50/4: Рейтинг темы: голосов - 4, средняя оценка - 4.50
2 / 2 / 0
Регистрация: 09.11.2014
Сообщений: 124
1

Поменять местами элементы массива: 1-2, 3-4, 5-6

16.11.2014, 13:24. Показов 739. Ответов 1
Метки нет (Все метки)

Поменять местами элементы массива следующим образом: 1-й со 2-м, 3 с 4, 5 с 6, 7 с 8 и 9 с 10.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
const
n=10;
type
mas=array[1..n] of integer;
var
line:mas;
i,s:integer;
begin
randomize;
write('первоначальный массив: ');
for i:=1 to n do
begin
line[i]:=random(101);
write(line[i]:4);
end;
writeln;
for i:=1 to n do
begin
while i<10 do
s:=line[i];
line[i]:=line[i+1];
line[i+1]:=s;
s:=line[i+2];
line[i+2]:=line[i+1];
line[i+1]:=s;
end;
write('измененный массив:     ');
for i:=1 to n do
write(line[i]:4);
end.
Программа выводит только первоначальный массив, в чем ошибка?
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
16.11.2014, 13:24
Ответы с готовыми решениями:

Поменять местами элементы массива
поменять местами элементы массива,1 с последним,2 с предпоследним очень срочно

Поменять местами максимальный и минимальный элементы массива
Имеется массив целых чисел размером N (задается константой). Заполнить его случайными целыми...

Поменять местами первый и минимальный элементы массива
Добрый вечер, не могу доделать программу по информатике, посмотрите пожалуйста. Задача: Поменять...

Поменять местами первый и минимальный элементы массива
Как поменять местами первый и минимальный элементы массива? (если элементов с минимальным значением...

1
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
31466 / 20513 / 7988
Регистрация: 22.10.2011
Сообщений: 35,630
Записей в блоге: 7
16.11.2014, 14:39 2
Дальше программа просто зацикливается

Добавлено через 3 минуты
Этого достаточно:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
const
  n = 10;
 
type
  mas = array[1..n] of integer;
 
var
  line: mas;
  i, s: integer;
 
begin
  randomize;
  write('первоначальный массив: ');
  for i := 1 to n do
  begin
    line[i] := random(101);
    write(line[i]:4);
  end;
  writeln;
  i := 1;
  while i < 10 do
  begin
    s := line[i];
    line[i] := line[i + 1];
    line[i + 1] := s;
    i := i + 2;
  end;
  write('измененный массив:     ');
  for i := 1 to n do
    write(line[i]:4);
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
16.11.2014, 14:39

Поменять местами максимальный и минимальный элементы массива
Массив случайных целых чисел складывается из 30 элементов,Узнать максимальный и минимальный элемент...

Найти максимальный и минимальный элементы массива D и поменять их местами
Найти максимальный и минимальный элементы массива D и поменять их местами. Имя массива и его...

Найти максимальный и минимальный элементы данного массива и поменять их местами
Дан двумерный массив размерностью N*M(N и M вводятся с клавиатуры).Найти максимальный и минимальный...

В каждой строке двумерного массива (n × m) поменять местами первый и максимальный элементы строки
В каждой строке двумерного массива (n × m) поменять местами первый и максимальный элементы строки.


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru