Матрица

@PunkNotDead · Регистрация: 01.02.2020

Доброй ночи всем.Нужна ваша помощь.Задана матрица размером NxM.Получить массив B,присвоив его k-ому элементу значение 0,если все элементы k-го столбца матрицы нулевые,и значение 1 в противоположном случае. Заранее спасибо

@Sun Serega · 17.02.2020, 22:34

Pascal

begin
  var X := ReadMatrReal(ReadInteger,ReadInteger);
  var A := ArrGen(X.ColCount, k->integer( X.Col(k).Any(r->r<>0) ));
  A.Println;
end.

@PunkNotDead 0 / 0 / 0 Регистрация: 01.02.2020 Сообщений: 7
		1
	Матрица 17.02.2020, 22:26. Показов 280. Ответов 1 Метки нет (Все метки) Доброй ночи всем.Нужна ваша помощь.Задана матрица размером NxM.Получить массив B,присвоив его k-ому элементу значение 0,если все элементы k-го столбца матрицы нулевые,и значение 1 в противоположном случае. Заранее спасибо 0

Опции темы