Главная » Дан квадратный массив целых положительных...
16:34

Дан квадратный массив целых положительных...


Задание:

Дан квадратный массив целых положительных чисел 10 х 10. Опишите на русском языке или на одном из языков программирования алгоритм вычисления суммы элементов строки, в которой расположен элемент с максимальным значением. Вывести значение суммы на печать. Предполагается, что такой элемент единственный.

Решение:

Введем переменные Max (значение максимального элемента), iMax (номер строки, в которой находится максимальный элемент), Sum (сумма элементов той строки, где находится максимальный элемент). Сначала определяем максимальный элемент в матрице: в переменную Max записываем значение A[1,1], а в iMax – единицу (пока считаем, что максимальный элемент стоит в первой строке); затем в двойном цикле проходим все элементы матрицы, если очередной элемент больше Max, запоминаем его значение в Max, а номер строки – в iMax. После этого находим сумму элементов строки с номером iMax: в переменную Sum записываем 0, в цикле проходим все элементы этой строки, добавляя текущий элемент к Sum. Ответ находится в переменной Sum.

  1. const N=10;
  2. var A:array[1..N,1..N] of integer;
  3.     Max, Sum, iMax, i, k: integer;
  4. begin
  5.   { ввод матрицы N на N }
  6.   iMax := 1; Max := A[1,1];
  7.   for i:=1 to N do
  8.     for k:=1 to N do
  9.       if A[i,k] > Max then begin
  10.         Max := A[i,k];
  11.         iMax := i
  12.       end;
  13.   Sum := 0;
  14.   for k:=1 to N do 
  15.     Sum := Sum + A[iMax,k];
  16.   writeln(Sum)
  17. end.

Похожие материалы:
Нашли ошибку на сайте? Напишите в комментариях!
Категория: Язык программирования: Паскаль | Просмотров: 67 | Добавил: Ученик | Рейтинг: 5.0/1