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

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

12.01.2017, 23:31. Показов 509. Ответов 2
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Дана прямоугольная матрица. Найти количество нулевых элементов каждого столбца матрицы и отсортировать столбцы по убыванию этих характеристик. Программа работает через раз. Подскажите что не так?
Вложения
Тип файла: zip matrica.zip (532 байт, 4 просмотров)
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
12.01.2017, 23:31
Ответы с готовыми решениями:

Найти сумму чётных элементов в каждом столбце матрицы, отсортировать столбцы по возрастанию этих характеристик
Дана прямоугольная матрица. Найти сумму четных элементов в каждом столбце матрицы и отсортировать...

Найти количество чисел Фибоначчи в массиве. Отсортировать по убыванию все столбцы матрицы. Подсчитать количество слов в
Друзья, помогите пожалуйста. 1. Используя функции сформировать с помощью ДСЧ одномерный массив и...

Отсортировать элемент каждого столбца матрицы по убыванию
Из файла Т прочитать матрицу М(10,14) отсортировать элементы каждого столбца за спаданням....

Упорядочить столбцы матрицы по убыванию их характеристик.
Характеристикой столбца назовем наибольшее количество идущих подряд отрицательных...

2
0 / 0 / 0
Регистрация: 24.11.2018
Сообщений: 18
26.11.2018, 17:02 2
это паскаль??
0
5081 / 2653 / 2349
Регистрация: 10.12.2014
Сообщений: 10,031
26.11.2018, 17:51 3
Pascal
1
program odin;
— это лишнее
Pascal
2
uses crt;
— а это вам зачем?
Pascal
6
Write('Введите размер квадратной матрицы n,m ');
— смешно!

Должно быть как-то так:
Pascal
1
2
3
4
5
6
7
8
9
10
11
begin 
  Randomize;
  var (n, m) := (ReadInteger('Строк:'), ReadInteger('Столбцов:'));
  var a := MatrRandomInteger(n, m, -5, +5);
  WriteLn('Случайная матрица:'); a.Println;
  var z := a.Cols.Select(c -> c.Count(x->x=0));
  Write('Нашли количество нулевых эл-тов каждого столбца: '); z.Println;
  a := Matr(m, n, a.Cols.OrderBy(c -> c.Count(x->x=0)).SelectMany(c->c).ToArray);
  a := Matr(n, m, a.Cols.SelectMany(c->c).ToArray);
  WriteLn('Преобразованная матрица:'); a.Println;
end.
0
26.11.2018, 17:51
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
26.11.2018, 17:51
Помогаю со студенческими работами здесь

Упорядочить столбцы матрицы по убыванию их характеристик
Характеристикой столбца назовем наибольшее количество идущих подряд отрицательных элементов....

Найти среднее арифметическое элементов каждого столбца и упорядочить столбцы по возрастанию этих элементов
Дана целая прямоугольная матрица размерности NxM. Найти среднее арифметическое элементов каждого...

Написать процедуру,сортирующую столбцы матрицы по убыванию характеристик
Помогите пожалуйста вот этот код надо переделать в процедуре) var a: array of integer; s:...

Найти произведение наименьших элементов каждого столбца матрицы и поменять местами 1-й и 3-й столбцы
Посмотрите пожалуйста, почему у меня в 3 столбце минимальный элемент неправильно находит . Вот...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru