Максимальный элемент массива - Pascal

Pascal (Паскаль)

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

Войти

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

Рейтинг 4.50/6:

@Kuroyuki 0 / 0 / 0 Регистрация: 14.12.2010 Сообщений: 9

	Максимальный элемент массива 14.12.2010, 14:43. Показов 1102. Ответов 1 Метки нет (Все метки) Определить максимальный элемент массива А(10). Если он меньше суммы всех остальных элементов, то присвоить этому элементу нулевое значение, иначе значение, равное найденной сумме. Напечатать вычисленные значения суммы и максимального элемента. 0

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

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

cpp_developer

Эксперт

20123 / 5690 / 1417

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

Сообщений: 22,546

Блог

14.12.2010, 14:43

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

Найти максимальный элемент массива и минимальный элемент массива и поменять их местами
Задача 1. Массив X(50). Найти максимальный элемент массива и минимальный элемент массива и поменять их местами.

Найти минимальный элемент из элем массива с нечетными номерами и максимальный элемент элементов с четными
4) Одномерный массив, состоящий из n элементов, заполняется введенными с клавиатуры целыми числами. Найти минимальный элемент из его...

Заменить все отрицательные элементы массива на максимальный элемент массива
Дан одномерный массив из N элементов. Заменить все его отрицательные элементы на максимальный элемент массива

Dekio

Фрилансер

5845 / 1226 / 499

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

Сообщений: 3,373

Записей в блоге: 1

14.12.2010, 15:03

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

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
max:=1;
for i:=1 to n do
begin
if arr[i] > arr[max] then
max:=i;
inc(s,arr[i]);
end;
dec(s,arr[max]);
if s > arr[max] then
arr[max]:=0
else
arr[max]:=s;

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

raxper

Эксперт

30234 / 6612 / 1498

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

Сообщений: 21,154

Блог

14.12.2010, 15:03

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

В матрице X(3,4), T(7,8) максимальный элемент этого массива заменить суммой положительных элементов массива
В матрице X(3,4), T(7,8) максимальный элемент этого массива заменить суммой положительных элементов массива.

Заменить на единицы все элементы массива, значения которых больше 3 , если максимальный элемент массива имеет значение от 0 до 5
Помогите пожалуйста решить 2 задачи... 1) Если сумма значений элементов с четным индексом в массиве М(15) равна произведению первого и...

Поменять местами максимальный элемент главной и максимальный элемент побочной диагонали
uses crt; var a:array of integer; i,j,n,max,Pmax,p:integer; begin clrscr; randomize; write('razmernost matrici...

Максимальный элемент массива
Сделай те блок-схемы к задачам плиззз! 1.В одномерном массиве, состоящий из n элементов, вычислить: -Максимальный элемент массива ...

Максимальный элемент массива
В одномерном массиве, состоящем из n вещественных элементов, вычислить: 1. Максимальный элемент массива. НА ПРОМЕЖУТКЕ (-10, 10)

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

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

Новые блоги и статьи Все статьи Все блоги /
Программная установка даты и запрет ее изменения Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .	Вывод данных в справочнике через динамический список Maks 01.04.2026 Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .	Функция заполнения текстового поля в реквизите формы документа Maks 01.04.2026 Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .	К слову об оптимизации kumehtar 01.04.2026 Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .
Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 31.03.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .	Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем	10 пpимет, которые всегда сбываются Maks 31.03.2026 1. Чтобы, наконец, пришла маршрутка, надо закурить. Если сигарета последняя, маршрутка придет еще до второй затяжки даже вопреки расписанию. 2. Нaдоели зима и снег? Не надо переезжать. Достаточно. . .	Перемещение выделенных строк ТЧ из одного документа в другой Maks 31.03.2026 Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .

Наверх