Напишите программу для суммирования положительных элементов - 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.

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

  1. Создается программа на языке Pascal ABC.
  2. Объявляются переменные: i, n, sum, j, s - целочисленные; avg - вещественное.
  3. Объявляется массив a размером [1..100, 1..100] целых чисел.
  4. Инициализируются переменные sum и s нулевыми значениями.
  5. Выводится сообщение «Введите порядок матрицы».
  6. Считывается порядок матрицы с помощью функции readln.
  7. Заполняется матрица a случайными числами от -10 до 10.
  8. Выводится сообщение «Среднее арифметическое побочной диагонали: ».
  9. Вычисляется среднее арифметическое побочной диагонали и сохраняется в переменной avg.
  10. Выводится сообщение «Сумма положительных элементов квадратной матрицы, превышающих по величине среднее арифметическое всех элементов побочной диагонали: ».
  11. Вычисляется сумма положительных элементов квадратной матрицы, превышающих по величине среднее арифметическое всех элементов побочной диагонали, и сохраняется в переменной sum.
  12. Программа завершается.

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


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

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

12   голосов , оценка 4.25 из 5
Похожие ответы