Найти сумму положительных элементов матрицы D(4,5)

@Max_kg · Регистрация: 30.11.2016

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

нужно програмку написать!

@Cyber_Monster_ · 02.12.2016, 12:54

Pascal
1
2
3
4
begin
  var NumberOfColumns:= ReadInteger('Введите количество столбцов: ');
  Writeln('Сумма положительных элементов матрицы = ', range(1, ReadInteger('Введите количество строк: ')).Select(x -> ArrRandomInteger(NumberOfColumns, -20, 20)).Println(#10).Select(x -> x.Where(y -> y > 0).Count() > 0 ? x.Where(y -> y > 0).Sum() : 0).Sum());
end.

@volvo · 02.12.2016, 15:10

Pascal
1
2
3
4
5
begin
  var NumberOfColumns:= ReadInteger('Введите количество столбцов: ');
  Writeln('Сумма положительных элементов матрицы = ', range(1, ReadInteger('Введите количество строк: ')).
    Select(x -> ArrRandomInteger(NumberOfColumns, -20, 20)).ToArray().Println(#10).SelectMany(x -> x).Where(x -> x > 0).Sum());
end.

Cyber_Monster_, а твой вариант делает совсем не то, что ожидается. Смотри:

Кликните здесь для просмотра всего текста

просто добавим вывод найденных сумм по строкам

Pascal
1
2
3
4
5
6
7
begin
  var NumberOfColumns:= ReadInteger('Введите количество столбцов: ');
  Writeln('Сумма положительных элементов матрицы = ', 
    range(1, ReadInteger('Введите количество строк: ')).
    Select(x -> ArrRandomInteger(NumberOfColumns, -20, 20)).
    Println(#10).Select(x -> x.Where(y -> y > 0).Count() > 0 ? x.Where(y -> y > 0).Sum() : 0).Println(';').Sum());
end.

, и сравним с реальными суммами после запуска:

Введите количество столбцов: 5
Введите количество строк: 5
[8,-11,1,20,8]
[6,-16,3,-3,7]
[9,2,-1,16,-5]
[0,15,12,-14,-3]
[-14,5,5,-14,-2]
19;36;27;6;15
Сумма положительных элементов матрицы = 101

Чувствуешь разницу? Суммы-то не те. Потому что нужно преобразовывать к ToArray сразу, чтобы тот, массив, который напечатался после генерации, был тем же, в котором ищутся суммы. А так .NET отложенно выполняет это действие, и то, что напечатано - это первый прогон "ленивой" генерации массива, а подсчет сумм - второй прогон. Значения разные абсолютно.

Еще раз тестируем, но на этот раз будем печатать содержимое матрицы, с которой производятся действия:

Pascal
1
2
3
4
5
6
7
begin
  var NumberOfColumns:= ReadInteger('Введите количество столбцов: ');
  Writeln('Сумма положительных элементов матрицы = ', 
    range(1, ReadInteger('Введите количество строк: ')).
    Select(x -> ArrRandomInteger(NumberOfColumns, -20, 20)).
    Println(#10).Select(x -> x.PrintLn('->').Where(y -> y > 0).Count() > 0 ? x.Where(y -> y > 0).Sum() : 0).Sum());
end.

Вот результат:

Введите количество столбцов: 5
Введите количество строк: 5
[-9,1,-5,0,18]
[13,-10,11,3,20]
[-8,5,8,-19,9]
[3,-14,-18,12,15]
[-7,18,4,11,-15]
16 -> -11 -> 11 -> 7 -> -11
-6 -> 18 -> -6 -> 13 -> -6
-7 -> 12 -> 5 -> 0 -> -10
-13 -> -18 -> -13 -> -14 -> -20
-7 -> -14 -> 0 -> 16 -> 13
Сумма положительных элементов матрицы = 111

Как видишь, вторая матрицы ничего общего с первой не имеет, а суммы ищутся именно в ней, а не в первой сгенерированной.

Аккуратнее с фичами .NET, иногда они больно бьют в ответ...

Новые блоги и статьи Все статьи Все блоги /
Программный контроль заполнения реквизита табличной части документа 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 В прикрепленном документе раздумья о том, как можно поменять модель в будущем

@Max_kg 0 / 0 / 0 Регистрация: 30.11.2016 Сообщений: 1

	Найти сумму положительных элементов матрицы D(4,5) 30.11.2016, 18:12. Показов 1259. Ответов 2 Метки нет (Все метки) нужно програмку написать! 0

Найти сумму положительных элементов матрицы D(4,5)

Решение