Перенести максимальный элемент в хвост массива - Pascal

Pascal (Паскаль)

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Рейтинг 4.67/6:

@alena900 3 / 3 / 2 Регистрация: 13.10.2009 Сообщений: 102

	Перенести максимальный элемент в хвост массива 17.11.2009, 17:33. Показов 1250. Ответов 1 Метки нет (Все метки) Перенести в хвост одномерного массива максимальный элемент. 0

Лучшие ответы (1)

Сообщение: #360584

Programming

Эксперт

39485 / 9562 / 3019

Регистрация: 12.04.2006

Сообщений: 41,671

Блог

17.11.2009, 17:33

Ответы с готовыми решениями:

Перенести в хвост массива максимальный элемент.
16. Дан массив целых чисел а1,…, аn. Перенести в хвост массива максимальный элемент.

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

Пеpенести в хвост одномеpного массива пеpвый отpицательный элемент.
ОБРАБОТКА ОДНОМЕРНЫХ МАССИВОВ И ФАЙЛОВЫЙ ВВОД\ВЫВОД Перенести в хвост одномерного массива первый...

Jazon_deenAlt

4117 / 999 / 191

Регистрация: 09.04.2009

Сообщений: 4,223

17.11.2009, 17:40

Сообщение было отмечено alena900 как решение

Решение

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
uses crt;
var
a:array[1..100]of integer;
i,n,max,maxi,tem:integer;
begin
writeln('skolko elementov?');
readln(n);
max:=-100;
randomize;
for i:=1 to n do begin
a[i]:=random(199)-98;
write(a[i]:4);
if a[i]>max then begin
max:=a[i];
maxi:=i;
end;
end;
writeln;
for i:=maxi to n-1 do begin
tem:=a[i];
a[i]:=a[i+1];
a[i+1]:=tem;
end;
for i:=1 to n do
write(a[i]:4);
readln;
end.

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.

inter-admin

Эксперт

29715 / 6470 / 2152

Регистрация: 06.03.2009

Сообщений: 28,500

Блог

17.11.2009, 17:40

Помогаю со студенческими работами здесь

Определить максимальный элемент массива В и его порядковый номер, замените максимальный элемент массива нулём
Массив: В(К); Условия и ограничения: в i>0, N<=30 Помогите пожалуйста

В целочисленном массиве M(n) найти максимальный элемент среди четных элементов массива и максимальный элемент
В целочисленном массиве M(n) найти максимальный элемент среди четных элементов массива и...

Найти максимальный элемент массива и его индекс. Максимальный элемент я нашел , не получается вывести индекс
var i,max: integer; x: array of integer; begin randomize; max:=x; for i:=1 to 5 do begin...

Все отрицательные элементы, имеющие нечетный порядковый номер, отправить в «хвост» массива
В одномерном массиве A=(a1, а2, ..., аn) все отрицательные элементы, имеющие нечетный порядковый...

Группу, содержащую наибольшее число подряд идущих положительных элементов, переписать в "хвост" массива
В одномерном массиве А=(а1, а2, ..., аn) группу, содержащую наибольшее число подряд идущих...

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

Или воспользуйтесь поиском по форуму:

Новые блоги и статьи Все статьи Все блоги /
Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .	Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .	Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .	Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .
Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .	Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .	модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий anaschu 08.04.2026 https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI	Блокировка документа от изменений, если он открыт у другого пользователя Maks 08.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .

Наверх