Обработка двумерных числовых массивов. Найти число элементов, кратных k

@spbkiu · Регистрация: 24.03.2012

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

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

@Ev[G]eN · 31.03.2012, 19:20

Pascal

const
  n = 5;
var
  Matr: Array[1..n, 1..n] of Integer;
  Count, Max, Chislo: Integer;
  i, j: Byte;
begin
  Randomize;
  Max:=Matr[1, 1]; Count:=0;
  writeln('Матрица: ');
  for i:=1 to n do
  begin
    for j:=1 to n do
    begin
      Matr[i, j]:=Random(100);
      write(Matr[i, j]:4);
    end;
    writeln;
  end;
  write('Число: ');
  readln(Chislo);
  for i:=1 to n do
    for j:=1 to n do
      if (Matr[i, j] mod Chislo = 0) and (Matr[i, j] > Max) then
      begin
        Max:=Matr[i, j];
        Inc(Count);
      end;
  writeln('Кол-во чисел, кратных ', Chislo, ': ', Count);
  writeln('Максимальное из них: ', Max);
end.

@spbkiu 0 / 0 / 0 Регистрация: 24.03.2012 Сообщений: 8
		1
	Обработка двумерных числовых массивов. Найти число элементов, кратных k 31.03.2012, 09:35. Показов 1211. Ответов 1 Метки нет (Все метки) Задана квадратная матрица порядка N. Найти число элементов, кратных k, и наибольший из них. 0

Опции темы

Обработка двумерных числовых массивов. Найти число элементов, кратных k

Решение