Заменить максимальный по модулю элемент каждого столбца суммой минимальных элементов

@NikolaT228 · Регистрация: 19.11.2020

Студворк — интернет-сервис помощи студентам

Дан двумерный массив размером n *m, заполненный случайным образом. Заменить максимальный по модулю элемент каждого столбца суммой минимальных элементов.
Вот похожая задача, только тут он находит по модулю максимальный элемент в СТРОКЕ и заменяет этот максимум на сумму чисел находящиеся до максимума. Пожалуйста помогите исправить

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
32
33
34
35
36
37
38
const
  n = 5;
  m = 6;
var
A: array[1..n, 1..m] of integer;
S, max: integer;
i, j, jmax, k: byte;
begin
writeln('Вводим двумерный случайный массив:');
writeln;
randomize;
for i := 1 to n do begin
jmax := 1;
max := a[i, 1];
for j := 1 to m do begin
a[i, j] := random(-20,20) ;
write(a[i, j]:5);
 
if abs(a[i, j]) > max then begin
max := abs(a[i, j]);
jmax := j //Определяем столбец максимального элемента в i-й строке
end
end;
S := 0;
for k := 1 to jmax-1  do 
S := S + a[i, k]; //Находим сумму предыдущих элементов
a[i, jmax] := S; //Меняем на сумму
writeln
end;
writeln;
writeln('Выводим преобразованную матрицу:');
writeln;
for i := 1 to n do begin
for j := 1 to m do
write(a[i, j]:5);
writeln
end
end.

@Puporev · 19.11.2020, 19:46

Сообщение от NikolaT228

суммой минимальных элементов.

Минимальных элементов чего?

@NikolaT228 · 19.11.2020, 20:14 **[ТС]**

Puporev, на минимальные элементы данного столбца, вот как должно получиться

@NikolaT228 · 19.11.2020, 20:18 **[ТС]**

в 1-ом столбце сумма 0+5=5
в 2-ом столбце сумма 8+(-8)=0
в 3-им столбце сумма 4+5=9
в 4-ом столбце сумма -3+1=-2

@Puporev · 19.11.2020, 20:20

Сообщение от NikolaT228

на минимальные элементы данного столбца

Наверное на минимальный элемент данного столбца?

@NikolaT228 · 19.11.2020, 20:23 **[ТС]**

Puporev, вот именно что не все так просто, нужно именно суммой заменить

@Puporev · 19.11.2020, 20:23

А вообще нифига не понял чего тебе нужно. Если не рубишь то просто пиши полное и точное условие задачи, а не какой-то подосланый код.

@NikolaT228 · 19.11.2020, 20:25 **[ТС]**

Puporev, Дан двумерный массив размером n *m, заполненный случайным образом. Заменить максимальный по модулю элемент каждого столбца суммой минимальных элементов.

@Puporev · 19.11.2020, 20:27

Нучто такое сумма минимальных элементов?

@NikolaT228 · 19.11.2020, 20:31 **[ТС]**

Puporev, то есть, сделать сумму чисел, которые меньше максимального

Добавлено через 1 минуту
Puporev, хотя я уже сам запутался, возможно во всем массиве найти минимальный элемент и сложить его, далее уже заменить

@Puporev · 19.11.2020, 20:31

Извини, но очень хочется послать тебя.

@NikolaT228 · 19.11.2020, 20:32 **[ТС]**

Puporev, Да, думаю второй вариант. Найти минимальный элемент во всем массиве, умножить на количество и заменить максимальный элемент

Новые блоги и статьи Все статьи Все блоги /
Программный контроль заполнения реквизита табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать контроль заполнения реквизита "ПричинаСписания". . .	wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/	Программная установка даты и запрет ее изменения 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 В прикрепленном документе раздумья о том, как можно поменять модель в будущем

@NikolaT228 0 / 0 / 0 Регистрация: 19.11.2020 Сообщений: 49
	19.11.2020, 20:14 [ТС]
	Puporev, на минимальные элементы данного столбца, вот как должно получиться Миниатюры 0

@NikolaT228 0 / 0 / 0 Регистрация: 19.11.2020 Сообщений: 49
	19.11.2020, 20:18 [ТС]
	в 1-ом столбце сумма 0+5=5 в 2-ом столбце сумма 8+(-8)=0 в 3-им столбце сумма 4+5=9 в 4-ом столбце сумма -3+1=-2 0

@NikolaT228 0 / 0 / 0 Регистрация: 19.11.2020 Сообщений: 49
	19.11.2020, 20:23 [ТС]
	Puporev, вот именно что не все так просто, нужно именно суммой заменить 0

@Puporev Почетный модератор 64315 / 47611 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	19.11.2020, 20:23
	А вообще нифига не понял чего тебе нужно. Если не рубишь то просто пиши полное и точное условие задачи, а не какой-то подосланый код. 0

@NikolaT228 0 / 0 / 0 Регистрация: 19.11.2020 Сообщений: 49
	19.11.2020, 20:25 [ТС]
	Puporev, Дан двумерный массив размером n *m, заполненный случайным образом. Заменить максимальный по модулю элемент каждого столбца суммой минимальных элементов. 0

@Puporev Почетный модератор 64315 / 47611 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	19.11.2020, 20:27
	Нучто такое сумма минимальных элементов? 0

@NikolaT228 0 / 0 / 0 Регистрация: 19.11.2020 Сообщений: 49
	19.11.2020, 20:31 [ТС]
	Puporev, то есть, сделать сумму чисел, которые меньше максимального Добавлено через 1 минуту Puporev, хотя я уже сам запутался, возможно во всем массиве найти минимальный элемент и сложить его, далее уже заменить 0

@Puporev Почетный модератор 64315 / 47611 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	19.11.2020, 20:31
	Извини, но очень хочется послать тебя. 0

@NikolaT228 0 / 0 / 0 Регистрация: 19.11.2020 Сообщений: 49
	19.11.2020, 20:32 [ТС]
	Puporev, Да, думаю второй вариант. Найти минимальный элемент во всем массиве, умножить на количество и заменить максимальный элемент 0