Работа 3.7 Упр.9 ГДЗ Семакин 10 класс (Информатика)

Задача

Рассмотрим вариант решения задания из учебника Семакин, Хеннер, Шеина 10 класс, Бином: 9. Для целочисленной квадратной матрицы найти число элементов, кратных k, и наибольший из этих элементов. *Цитирирование задания со ссылкой на учебник производится исключительно в учебных целях для лучшего понимания разбора решения задания. 10 semakin10 pract/3-7/9 98

Подробный ответ

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

Сначала задаём начальные значения:

$$t := 0$$ — счётчик подходящих элементов;
$$max := -1$$ — текущий максимум среди элементов, кратных $$k$$.

Далее перебираем все элементы матрицы. Если $$a[i,j] \bmod k = 0$$, то увеличиваем счётчик и сравниваем элемент с текущим максимумом:

если $$a[i,j] > max$$, то присваиваем $$max := a[i,j]$$.

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

var n: integer;
a: array[1..n,1..n] of integer;
i, j, k, t, max: integer;
begin
  randomize;
  writeln(‘Исходный массив’);
  for i := 1 to n do
  begin
    for j := 1 to n do
    begin
      a[i,j] := random(100);
      write(a[i,j]:3);
    end;
    writeln;
  end;
  write(‘K -> ‘);
  readln(k);
  max := -1;
  t := 0;
  for i := 1 to n do
    for j := 1 to n do
      if a[i,j] mod k = 0 then
      begin
        inc(t);
        if a[i,j] > max then max := a[i,j];
      end;
  writeln(‘Количество элементов, кратных k: ‘, t);
  writeln(‘MAX = ‘, max);
end.