В каждой строке матрицы выбрать минимальный элемент и найти их произведение

@ablehand · Регистрация: 17.10.2017

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

Добрый день. Прошу помощи, так как не ходила две недели в универ из-за болезни и теперь не знаю, что делать с этим заданием. Пожалуйста, помогите.

Использовать подпрограммы (ввода, вывода, обрабатывающей части). Дан массив целых чисел А[M,N], где M,N<=10. В каждой строке массива выбрать минимальный и найти их произведение.

@JuriiMW · 17.10.2017, 10:52

Pascal

begin
  var a:array [,]of Integer;
  var(m,n):=ReadInteger2('M N =');
  SetLength(a,m,n);
  for var row:=1 to m do
    for var col:=1 to n do
      a[pred(row),pred(col)]:=ReadInteger('a['+row+','+col+'] =');
  WriteLn('Массив А:'); a.Println;
  WriteLn('Произведение минимальных элементов строк = ', a.Rows.Select(r->r.min).Aggregate((p,i)->p*i));
end.

P.S. Я не стал вводить ограничение на M,N<10… Ибо, более 100 элементов данного массива сами замучаетесь вводить ;–)

@Соколиный глаз · 17.10.2017, 14:57

Pascal

1
2
3

begin
  Writeln(MatrRandom(ReadlnInteger('N:'), ReadlnInteger('M:'), 1, 10).Println().Rows().Select(x -> x.Min()).Aggregate((x, y)-> x * y))
end.

Добавлено через 32 секунды
Но в данном случае массив заполняется случайными числами.

@JuriiMW · 18.10.2017, 06:42

Volobuev Ilya, в задании сказано:

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

Дан массив целых чисел

Т.е. от дан пользователю, а не заполнен случайными числами!
Да и вывод сообщений без информации — это моветон…

@Соколиный глаз · 18.10.2017, 07:06

А разве сложно заполнить массив? Код несложно изменить под себя автору темы.

Добавлено через 1 минуту

Не по теме:

Я поэтому специально и написал что заполнение массива случайными числами, чтобы автор хотя бы сам чуть чуть подумал и дописал.

@volvo · 18.10.2017, 12:29

Сообщение от Volobuev Ilya

Rows().Select(x -> x.Min()).Aggregate((x, y)-> x * y))

Опять лишнее действие.

Pascal

1	Rows().Aggregate(1, (x, y) -> x * y.min)

сделает абсолютно то же самое.

@Соколиный глаз · 18.10.2017, 13:00

Спасибо, сенсей

@ablehand 0 / 0 / 0 Регистрация: 17.10.2017 Сообщений: 1
		1
	В каждой строке матрицы выбрать минимальный элемент и найти их произведение 17.10.2017, 09:43. Показов 581. Ответов 6 Метки нет (Все метки) Добрый день. Прошу помощи, так как не ходила две недели в универ из-за болезни и теперь не знаю, что делать с этим заданием. Пожалуйста, помогите. Использовать подпрограммы (ввода, вывода, обрабатывающей части). Дан массив целых чисел А[M,N], где M,N<=10. В каждой строке массива выбрать минимальный и найти их произведение. 0

@JuriiMW 5079 / 2651 / 2349 Регистрация: 10.12.2014 Сообщений: 10,028
	18.10.2017, 06:42	4
	Volobuev Ilya, в задании сказано: Сообщение от ablehand Дан массив целых чисел Т.е. от дан пользователю, а не заполнен случайными числами! Да и вывод сообщений без информации — это моветон… 0

@Соколиный глаз Alvin Seville 343 / 273 / 134 Регистрация: 25.07.2014 Сообщений: 4,537 Записей в блоге: 9
	18.10.2017, 07:06	5
	А разве сложно заполнить массив? Код несложно изменить под себя автору темы. Добавлено через 1 минуту Не по теме: Я поэтому специально и написал что заполнение массива случайными числами, чтобы автор хотя бы сам чуть чуть подумал и дописал. 0

@Соколиный глаз Alvin Seville 343 / 273 / 134 Регистрация: 25.07.2014 Сообщений: 4,537 Записей в блоге: 9
	18.10.2017, 13:00	7
	Спасибо, сенсей 0