Найти число элементов матрицы, кратных k

@Kioko · Регистрация: 22.10.2011

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

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

@pHOMM · 16.04.2012, 10:25

Delphi

uses
  math ... ;
const
  msize = ; // размер стороны матрицы
type
  tmx = array[0..msize -1] of array[0..msize -1] of integer; // тип для матрицы
...
// вызывай эту функцию передавая матрицу и К
function GetMaxDividibleFromMatrix(mx: tmx; k: integer); 
begin
  Result := 0;
  for i := 0 to msize - 1 do
    for j := 0 to msize - 1 do
      if mx[i,j] mod k = 0 then
        Result := max(Result, mx[i,j]);
end;

не проверял, адаптируй сам.

@Kioko 0 / 0 / 0 Регистрация: 22.10.2011 Сообщений: 3
		1
	Найти число элементов матрицы, кратных k 16.04.2012, 09:53. Показов 1151. Ответов 1 Метки нет (Все метки) Для целочисленной квадратной матрицы найти число элементов, кратных k, и определить наибольший из полученных результатов. 0

	16.04.2012, 10:25

Опции темы

Найти число элементов матрицы, кратных k

Решение