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

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

12.11.2015, 17:37. Просмотров 251. Ответов 2
Метки нет (Все метки)

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

Расположить элементы массива обратном порядке
2.Дан массив x из n элементов. Расположить его элементы в обратном порядке.

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

Расположить элементы матрицы в обратном порядке
Дан массив x из n элементов. a) Расположить его элементы в обратном порядке....

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

Переставить элементы массива в обратном порядке
Дан массив целых чисел размерности n. Переставить элементы массива в обратном...

Переписать элементы массива А, кратные 3, в массив В в обратном порядке
очень нужна помощь Задача 11 Заполнить массив А из 10 элементов целыми...

2
BLOODland
5 / 5 / 4
Регистрация: 30.06.2015
Сообщений: 20
12.11.2015, 21:47 #2
Лучший ответ Сообщение было отмечено _Maxim_ как решение

Решение

Предупреждаю, написано без запуска, т. к. компилятор категорически отказался работать. Будут ошибки - извиняйте...

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
Program Kek1;
Uses crt;
Type
mass = array [1..10] of integer;
End;
Function ReCange(a: mass;): mass;
Var b, x: integer;
Begin
b:= 1;
Repeat
x:= a[10-b];
a[10-b]:= a[b];
a[b]:= x;
b:= b+1;
Until b>5;
For b:= 1 to 10 do
Write(a[b], ' ');
End;
Var a: mass;
      b: integer;
Begin
For b:= 1 to 10 do
Begin
Read(a[b]);
Write(' ');
End;
ReCange(a[b]);
End.
1
ZX Spectrum-128
Модератор
Эксперт Pascal/Delphi
3858 / 2845 / 3631
Регистрация: 05.06.2014
Сообщений: 13,943
13.11.2015, 11:32 #3
http://www.cyberforum.ru/turbo-pascal/thread834319.html
Под свое задание оформите самостоятельно.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
13.11.2015, 11:32
Привет! Вот еще темы с решениями:

Переписать в массив Y элементы массива (x1,x2 ,.x30 )в обратном порядке
Переписать в массив Y элементы массива (x1,x2 ,...x30 )в обратном порядке.

Скопируйте отрицательные и положительные элементы массива А в массив В в обратном порядке
Скопируйте отрицательные и положительные кратные заданному числу элементы...

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

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


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

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

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