Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
2-D
0 / 0 / 0
Регистрация: 03.10.2012
Сообщений: 48
1

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

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

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

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

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

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

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

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

1
Midian
220 / 220 / 170
Регистрация: 31.03.2013
Сообщений: 1,966
Завершенные тесты: 6
22.05.2013, 16:31 2
Лучший ответ Сообщение было отмечено 2-D как решение

Решение

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

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

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

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


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

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

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