Найти сумму элементов первой и третьей строк матрицы A(NxM). - Turbo Pascal
Формулировка задачи:
Задача:
Найти сумму элементов первой и третьей строк матрицы A(NxM).
Решение задачи: «Найти сумму элементов первой и третьей строк матрицы A(NxM).»
textual
Листинг программы
var i,j,m,n,s,sum,sum1:integer; x:array [1..100,1..100] of integer; begin readln(n,m); randomize; for i:=1 to n do for j:=1 to m do x[i,j]:=random(99)-17; sum:=0; for i:=1 to n do sum:=sum+x[1,i]; sum:=0; for i:=1 to n do sum1:=sum1+x[3,i]; s:=sum+sum1; writeln(s); end.
Объяснение кода листинга программы
- Объявлены переменные: i, j, m, n, s, sum, sum1 (строки с 1 по 7)
- Объявлен массив x размером 100x100 (строка 8)
- Ввод с клавиатуры значений n и m (строка 9)
- Инициализация случайными значениями от 1 до 100 всех элементов массива x (строки с 10 по 18)
- Начальное значение суммы установлено в 0 (строка 19)
- Первый цикл перебирает все элементы первой строки массива x и суммирует их (строки с 20 по 24)
- Второй цикл перебирает все элементы третьей строки массива x и суммирует их (строки с 25 по 29)
- Суммы sum и sum1 складываются (строка 30)
- Результат выводится на экран (строка 31)
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д