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

@_Honest · Регистрация: 02.04.2020

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

Создать массив А(nxm) из случайных целых чисел. Вывести массив на экран. Определить в каждом столбце сумму элементов массива, больших числа 3.

@canadamoscow · 21.04.2020, 13:28

Pascal

begin
  var (n,m) :=(3,4);
  var a := MatrRandom(n, m,1, 4).Println;
  Print('Суммы:' + NewLine + '  ');
  a.Cols.Select(Столбец -> Столбец.Where(Элемент -> Элемент >3).sum).Print('   ');
end.

@Sun Serega · 21.04.2020, 13:54

canadamoscow,
После нескольких запусков выпало

Код

   2   4   2   3
   2   4   3   2
   4   4   4   2
Суммы:
   4   12   4   0

Ибо нефиг костылировать.

Нужен выровненный вывод - надо таки выравнивать каждый элемент.

Pascal

begin
  var (n,m) :=(3,4);
  var a := MatrRandom(n, m, 1,4).Println(4); // явно задаём ширину элемента
  'Суммы:'.Println;
  a.Cols.Select(Столбец -> Столбец.Where(Элемент -> Элемент >3).sum)
  .Select(x->x.ToString.PadLeft(4)) // и тут ещё раз
  .Print('');
end.

@_Honest 0 / 0 / 0 Регистрация: 02.04.2020 Сообщений: 4
		1
	Обработка двумерных массивов 20.04.2020, 16:43. Показов 278. Ответов 2 Метки нет (Все метки) Создать массив А(nxm) из случайных целых чисел. Вывести массив на экран. Определить в каждом столбце сумму элементов массива, больших числа 3. 0

	21.04.2020, 13:54