Напишите программу для суммирования положительных элементов - Pascal ABC
Формулировка задачи:
Напишите программу для суммирования положительных элементов квадратной матрицы, превышающих по величине среднее арифметическое всех элементов побочной диагонали. (подскажите, пожалуйста)
Решение задачи: «Напишите программу для суммирования положительных элементов»
textual
Листинг программы
program pr; var i, n, sum, j, s: integer; avg: real; a: array [1..100, 1..100] of integer; begin sum := 0; s := 0; writeln('Введите порядок матрицы'); readln(n); for i := 1 to n do for j := 1 to n do a[i, j] := random(21) - 10; for i := 1 to n do begin for j := 1 to n do write(a[i, j]:3); writeln; end; j := n; for i := 1 to n do begin s := (s + a[i, j]); j := j - 1; end; avg := s / n; writeln; writeln('Среднее арифметическое побочной диагонали: ', avg); for i := 1 to n do for j := 1 to n do if (a[i, j] > 0) and (a[i, j] > avg) then begin sum := sum + a[i, j]; end; writeln('Сумма положительных элементов квадратной матрицы, превышающих по величине среднее арифметическое всех элементов побочной диагонали: ', sum ); end.
Объяснение кода листинга программы
- Создается программа на языке Pascal ABC.
- Объявляются переменные: i, n, sum, j, s - целочисленные; avg - вещественное.
- Объявляется массив a размером [1..100, 1..100] целых чисел.
- Инициализируются переменные sum и s нулевыми значениями.
- Выводится сообщение «Введите порядок матрицы».
- Считывается порядок матрицы с помощью функции readln.
- Заполняется матрица a случайными числами от -10 до 10.
- Выводится сообщение «Среднее арифметическое побочной диагонали: ».
- Вычисляется среднее арифметическое побочной диагонали и сохраняется в переменной avg.
- Выводится сообщение «Сумма положительных элементов квадратной матрицы, превышающих по величине среднее арифметическое всех элементов побочной диагонали: ».
- Вычисляется сумма положительных элементов квадратной матрицы, превышающих по величине среднее арифметическое всех элементов побочной диагонали, и сохраняется в переменной sum.
- Программа завершается.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д