Форум программистов, компьютерный форум, киберфорум
Наши страницы

Turbo Pascal

Войти
Регистрация
Восстановить пароль
 
2-D
0 / 0 / 0
Регистрация: 03.10.2012
Сообщений: 48
#1

Поменять местами максимальный элемент одномерного массива и его соседа слева. - Turbo Pascal

22.05.2013, 16:02. Просмотров 332. Ответов 1
Метки нет (Все метки)

Поменять местами максимальный элемент одномерного массива и его соседа слева.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
22.05.2013, 16:02
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Поменять местами максимальный элемент одномерного массива и его соседа слева. (Turbo Pascal):

Найти максимальный элемент одномерного массива и поменять местами второй элемент с максимальным - Turbo Pascal
Здравствуйте! пожалуйста помогите сделать! Заранее большое спасибо!!! 1. Написать программу реализации линейного алгоритм приема...

Найти максимальный элемент массива и поменять его местами с первым элементом - Turbo Pascal
Дан одномерный массив, который содержит не более 40 вещественных чисел. Найти максимальный элемент и поменять его местами с первым...

Найти максимальный элемент массива и поменять его местами с первым элементом - Turbo Pascal
В качестве условия задачи берется задание из 5 лабораторной работы, но работать не с одним массивом, а с двумя А1 и А2. В основной...

Найти максимальный элемент массива и поменять его местами с последним элементом. - Turbo Pascal
Дан одномерный массив, который содержит не более 100 вещественных чисел. Найти максимальный элемент и поменять его местами с последним...

Найти максимальный элемент и поменять его местами с первым элементом массива - Turbo Pascal
Дан двумерный массив, который содержит не более 10 строк и не более 10 столбцов. Найти максимальный элемент и поменять его местами с первым...

Массив. Найти максимальный элемент массива и поменять его местами с первым элементом - Turbo Pascal
Дан массив целых чисел а1,…, аn. Найти максимальный элемент массива и поменять его местами с первым элементом.

1
Midian
220 / 220 / 60
Регистрация: 31.03.2013
Сообщений: 1,955
Завершенные тесты: 6
22.05.2013, 16:31 #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
30
31
const
n = 100;
var
arr: array [1..n] of integer;
i,m,poz: byte;
max,tmp: integer;
begin
write('Ко-во элементов: ');
readln(m);
for i:=1 to m do
begin
arr[i]:=random(50);
write(arr[i],' ');
end;
writeln;
max:=arr[1];
for i:=1 to m do
if (arr[i] >= max) then
begin
max:=arr[i];
poz:=i;
end;
tmp:=arr[poz-1];
arr[poz-1]:=arr[poz];
arr[poz]:=tmp;
for i:=1 to m do
begin
write(arr[i],' ');
end;
writeln;
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
22.05.2013, 16:31
Привет! Вот еще темы с ответами:

Найти максимальный элемент и поменять его местами с первым элементом второго столбца массива - Turbo Pascal
Дан двумерный массив, который содержит не более 30 строк и не более 10 столбцов. Найти максимальный элемент и поменять его местами с первым...

Найти минимальный элемент одномерного массива и поменять местами пятый элемент с минимальным - Turbo Pascal
Здравствуйте. Очень нужна ваша помощь в решении следующих задач: 3. Найти минимальный элемент одномерного массива и поменять местами...

Найти максимальный элемент и поменять его местами с последним элементом - Turbo Pascal
Дан одномерный массив, который содержит не более 100 вещественных чисел. Найти максимальный элемент и поменять его местами с последним...

Найти максимальный элемент и минимальный элемент массива и поменять их местами. - Turbo Pascal
2)В массиве М(45) лежат целые числа. Найти максимальный элемент (первый) и минимальный элемент (первый) и поменять их местами.


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

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

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