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

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

Сначала заполняем матрицу случайными целыми числами из диапазона от $$-10$$ до $$10$$. Затем для каждого столбца вычисляем произведение всех его элементов. Среди тех столбцов, в которых все элементы по модулю не больше $$10$$, выбираем столбец с наименьшим произведением.

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

var A: array[1..20,1..20] of integer; g: array[1..20] of integer;
i, j, k, m, n, nom: integer;
begin
  Randomize;
  min := 9999;
  write(‘n=’); readln(n);
  write(‘m=’); readln(m);
  for i := 1 to n do
    for j := 1 to m do
    begin
      A[i,j] := random(21) — 10;
      write(A[i,j]:5);
    end;
  g[j] := 1;
  j := 1;
  repeat
    for i := 1 to n do
    begin
      g[j] := g[j] * A[i,j];
    end;
    j := j + 1;
  until j = m;
  for j := 1 to n do
  begin
    if g[j] < min then
    begin
      min := g[j];
      nom := j;
    end;
  end;
  write(‘min stolb: ‘, nom);
end.

В программе массив $$A$$ хранит исходную матрицу, массив $$g$$ — произведения столбцов, переменная $$min$$ — минимальное произведение, а $$nom$$ — номер нужного столбца.

Ответ: программа находит столбец с минимальным произведением элементов среди подходящих столбцов.