Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
SStass
2 / 2 / 0
Регистрация: 27.10.2011
Сообщений: 26
#1

Расположить элементы массива в обратном порядке - Turbo Pascal

16.04.2012, 21:11. Просмотров 342. Ответов 1
Метки нет (Все метки)

Дан массив а[с]. Расположить его элементы в обратном порядке.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
16.04.2012, 21:11
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Расположить элементы массива в обратном порядке (Turbo Pascal):

Расположить элементы массива в обратном порядке
Дан массив А(n), состоящий из целых чисел. расположить его элементы в обратном...

Расположить элементы массива в обратном порядке с помощью рекурсии
Задание. Задан массив A. Расположить его элементы в обратном порядке. Помогите...

Задан массив А(n). Расположить его элементы в обратном порядке
Задан массив А(n). Расположить его элементы в обратном порядке

Вывести в прямом порядке элементы массива и в обратном порядке - чётные элементы
Составьте программу, которая вводит с клавиатуры 8 целых неотрицательных чисел...

Задан линейный массив. Осуществить в нем сдвиги по следующим правилам: Расположить элементы в обратном порядке.
Задан линейный массив. Осуществить в нем сдвиги по следующим правилам:...

Элементы массива на нечетных позициях расположить в порядке возрастания, а на нечетных - в порядке убывания
Ввести массив x1,x2,...,x20. Элементы, на нечетных местах, расположить в...

1
Puporev
Модератор
54136 / 41769 / 28877
Регистрация: 18.05.2008
Сообщений: 98,307
16.04.2012, 21:24 #2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

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
uses crt;
type Tmass=array[1..20]of integer;
var a:Tmass;n,i:integer;
procedure Revers(i,j:integer);
var buf:integer;
begin
buf:=a[i];
a[i]:=a[j];
a[j]:=buf;
inc(i);
dec(j);
if i<j then Revers(i,j);
end;
begin
clrscr;
write('n=');readln(n);
writeln('Ishod massiv');
for i:=1 to n do
  begin
   a[i]:=i;
   write(a[i],' ');
 end;
writeln;
writeln('Obratn massiv');
Revers(1,n);
for i:=1 to n  do
   write(a[i],' ');
readln;
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
16.04.2012, 21:24
Привет! Вот еще темы с решениями:

Получить элементы массива в обратном порядке
Написать программу,которая позволяетполучить элементы массива А(10)в обратном...

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

Записать элементы массива в обратном порядке
Напишите массив из 20 эл. в обратном порядке. const n=20; var a:arrayof...

Переставить в обратном порядке элементы массива
Дан массив размера N. Переставить в обратном порядке элементы массива,...


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

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

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