В матрице найти сумму элементов столбца, в котором расположен наибольший элемент - Turbo Pascal

Узнай цену своей работы

Формулировка задачи:

Заданная квадратная матрица A размером N x N (N <= 10), состоящая из действительных элементов . Найти сумму элементов столбца , в котором расположен наибольший элемент

Решение задачи: «В матрице найти сумму элементов столбца, в котором расположен наибольший элемент»

textual
Листинг программы
  1. program pr;
  2.  
  3. var
  4.   a: array [1..10, 1..10] of real;
  5.   n,i,j,index: integer;
  6.   max, sum: real;
  7.  
  8. begin
  9.   writeln('Введите порядок матрицы <= 10');
  10.   readln(n);
  11.   if (n <= 10) then
  12.   begin
  13.     for i := 1 to n do
  14.       for j := 1 to n do
  15.         a[i, j] := random(21);       // диапазон заполнения ставь любой
  16.     writeln('Исходная матрица');
  17.     for i := 1 to n do
  18.     begin
  19.       for j := 1 to n do
  20.         write(a[i, j]:3);
  21.       writeln;
  22.     end;
  23.     max := a[1, 1];
  24.     for i := 1 to n do
  25.       for j := 1 to n do
  26.         if a[i, j] > max then
  27.         begin
  28.           max := a[i, j];
  29.           index := j;
  30.         end;
  31.     writeln;
  32.     writeln('Наибольший элемент: ', max);
  33.     writeln('Столбец,содержащий наибольший элемент: ', index);
  34.     sum := 0;
  35.     for i := 1 to n do
  36.     begin
  37.       sum := sum + a[i, index];
  38.     end;
  39.     writeln('Сумма элементов столбца,который содержит наибольший элемент: ', sum);
  40.   end
  41.   else
  42.     writeln('Недопустимый ввод.Порядок должен быть меньше или равен 10');
  43. end.

Объяснение кода листинга программы

  1. Программа начинается с объявления переменных: n, i, j, index и max, которые будут использоваться для работы с матрицей и поиском наибольшего элемента.
  2. Пользователю предлагается ввести порядок матрицы (не больше 10). Если введенный порядок соответствует допустимому диапазону (т.е. меньше или равен 10), то начинается заполнение матрицы случайными числами от 0 до 20.
  3. После заполнения матрицы выводится исходная матрица с помощью цикла for.
  4. Находится наибольший элемент в матрице с помощью двух вложенных циклов for. Переменная max и индекс столбца, содержащего наибольший элемент, обновляются при нахождении нового максимального значения.
  5. Выводится информация о наибольшем элементе и столбце, содержащем этот элемент.
  6. Сумма элементов столбца, содержащего наибольший элемент, вычисляется с помощью цикла for.
  7. Если введенный порядок матрицы не соответствует допустимому диапазону, выводится сообщение об ошибке.

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

6   голосов , оценка 4.167 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Бесплатно
Оформите заказ и авторы начнут откликаться уже через 10 минут
Похожие ответы