Форум программистов, компьютерный форум, киберфорум
Free Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.95/19: Рейтинг темы: голосов - 19, средняя оценка - 4.95
3 / 3 / 0
Регистрация: 27.06.2012
Сообщений: 165
Записей в блоге: 1
1

Изменить порядок следования элементов массива на обратный, используя одну вспомогательную переменную

05.07.2012, 12:29. Показов 3656. Ответов 4
Метки нет (Все метки)

Заданы целое число M(M<100) и массив А, состоящий из M целых элементов. Изменить порядок следования элементов массива на обратный, то есть А12,...Am-1,Am заменить на Am,Am-1,...,A2,A1, используя одну вспомогательную переменную. (Результат получить в том же массиве А).
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
05.07.2012, 12:29
Ответы с готовыми решениями:

При выполнении заданного условия изменить порядок следования элементов массива на обратный
Если удвоенная сумма всех элементов массива из 10 целых чисел больше их произведения, изменить...

Изменить порядок следования элементов в массиве на обратный, используя массив указателей
Изменить порядок следования элементов в массиве на обратный, используя массив указателей ...

Изменить порядок следования элементов массива на обратный
Массив заданного размера N (от 3 до 10) ввести произвольные числа (вещественные по значению)....

Изменить порядок следования элементов массива на обратный
Привет всем! Нужна помощь по решению задачи на языке С++. Принципиально я знаю как решать, но не...

4
Почетный модератор
64089 / 47498 / 32734
Регистрация: 18.05.2008
Сообщений: 115,182
05.07.2012, 12:42 2
Pascal
1
2
3
4
5
6
for i:=1 to m div 2 do
 begin
  x:=a[i];
  a[i]:=a[m-i+1];
  a[m-i+1]:=x;
 end;
1
Почетный модератор
7963 / 3934 / 2464
Регистрация: 30.10.2011
Сообщений: 5,377
05.07.2012, 12:43 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
uses crt;
const nmax=100;
var a:array [1..nmax] of integer;
    i,m: byte;
    buf:integer;
begin
randomize;
repeat
write('m (не более ',nmax,')=');readln(m);
until m in [1..nmax];
writeln('Прямой порядок');
for i:=1 to m do
    begin
    a[i]:=random(199)-99;
    write(a[i]:4);
    end;
writeln;
writeln('Обратный порядок');
for i:=1 to m div 2 do
    begin
    buf:=a[i];
    a[i]:=a[m+1-i];
    a[m+1-i]:=buf;
    end;
for i:=1 to m do
    write(a[i]:4);
readln;
end.
1
Фрилансер
3414 / 2811 / 3000
Регистрация: 08.02.2012
Сообщений: 8,268
Записей в блоге: 1
05.07.2012, 12:46 4
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
Var A:array[1..100] of integer;
    i,t,n:integer;
Begin
    write('Ведите размерность: ');readln(n);
    writeln('Исходный массив');
    For i:=1 to n do
     Begin
      A[i]:=Random(10);
      write(A[i]:2);
     End;
    writeln;
    writeln('Преобразованный массив');
    For i:=0 to n-1 do
     Begin
      if i<n-i then 
       Begin
        t:=A[n-i];
        A[n-i]:=A[i+1];
        A[i+1]:=t;
       End;
      write(A[i+1]:2);
     End;
    readln;
 End.
1
3 / 3 / 0
Регистрация: 27.06.2012
Сообщений: 165
Записей в блоге: 1
05.07.2012, 12:51  [ТС] 5
Спасибо, парни! Что бы я без вас делал.
0
05.07.2012, 12:51
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
05.07.2012, 12:51

Изменить порядок следования элементов исходного массива на обратный
Задан массив В(L). Изменить порядок следования элементов исходного массива на обратный и записать...

Изменить порядок следования элементов массива a[n], расположенных между k и k+5 элементами, на обратный
Изменить порядок следования элементов массива a, расположенных между k и k+5 элементами, на...

Изменить порядок следования массива на обратный
Дан одномерный массив. Изменить порядок следования массива на обратный. Помогите пожалуйста)

Изменить порядок следования элементов в массиве на обратный
Здравствуйте. Надо написать функцию, но почему-то он у меня вылетает. Что я неправильно сделал?...


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

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

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