Определить количество столбцов, не содержащих ни одного нулевого элемента

@fnatic · Регистрация: 06.11.2016

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

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

Напишите программу в паскале

@isst · 18.11.2016, 15:53

Вот:

Pascal

type 
  TValue = integer; //Здесь укажешь любой тип
  TSize = word; //А это тип итераторов
  TVector = array of TValue;
  TMatrix = array of TVector;
  
begin
  writeln('Введите размеры матрицы:');
  var n, m:TSize;
  read(n, m);
  var arr:TMatrix = new TVector[n];
  writeln('Введите матрицу:');
  for i:TSize := low(arr) to high(arr) do
  begin
    arr[i]:= new TValue[m];
    for j:TSize := low(arr[i]) to high(arr[i]) do
      read(arr[i, j]);
  end;
  var counter:TSize := 0;
  for j:TSize := low(arr[low(arr)]) to high(arr[low(arr)]) do
    for i:TSize := low(arr) to high(arr) do
      if (arr[i, j] = 0) then
      begin
        counter += 1;
        break;
      end;
  writeln('Количество столбцов, не содержащих ни одного нулевого элемента: ', Length(arr[low(arr)]) - counter);
end.

@fnatic 0 / 0 / 0 Регистрация: 06.11.2016 Сообщений: 110
		1
	Определить количество столбцов, не содержащих ни одного нулевого элемента 18.11.2016, 13:18. Показов 466. Ответов 1 Метки нет (Все метки) Дана целочисленная прямоугольная матрица. Определить количество столбцов, не содержащих ни одного нулевого элемента. Характеристикой строки целочисленной матрицы назовем сумму ее положительных четных элементов. Переставляя строки заданной матрицы, расположить их в соответствии с ростом характеристик. Напишите программу в паскале 0

Опции темы