Question

Дана вещественная квадратная матрица А порядка n. Найти среднее арифметическое среди положительных элементов матрицы, находящихся на главной и побочной диагоналях. Выдать сообщение, если таких элементов нет.

Answer 1

VAR
   ans: Real;
   n, i, j, kol: Integer;
   a: Array of Array of Real;
BEGIN
   Read(n); SetLength(a, n+1);
   For i := 1 to n do SetLength(a[i], n+1);

   For i:= 1 to n do 
      For j := 1 to n do Read(a[i][j]);

   For i := 1 to n do
      If (a[i][i] > 0) then begin Inc(kol); ans := ans + a[i][i]; End;

   If (kol > 0) then begin Writeln('Ср. ар. с гл. диагонали = ', ans / kol); kol := 0;ans := 0; End
   Else Writeln('Элементов > 0 на гл. диагонали - нет !');

   For i := 1 to n do
      If (a[i][n-i+1] > 0) then begin Inc(kol); ans := ans + a[i][n-i+1]; End;

   If (kol > 0) then Writeln('Ср. ар. с поб. диагонали = ', ans / kol)
   Else Writeln('Элементов > 0 на поб. диагонали - нет !');
END.

Answer 2

Для нахождения среднего арифметического среди положительных элементов матрицы, находящихся на главной и побочной диагоналях, нужно выполнить следующие шаги:

1. Создать вещественную квадратную матрицу А порядка n. 2. Найти положительные элементы, находящиеся на главной и побочной диагоналях матрицы А. 3. Вычислить среднее арифметическое этих положительных элементов. 4. Вывести результат.

Шаги для решения задачи:

1. Создание матрицы А: - Создайте вещественную квадратную матрицу А порядка n.

2. Нахождение положительных элементов на диагоналях: - Пройдитесь по главной диагонали матрицы А и проверьте каждый элемент на положительность. - Пройдитесь по побочной диагонали матрицы А и проверьте каждый элемент на положительность. - Запишите положительные элементы в отдельный список или массив.

3. Вычисление среднего арифметического: - Если список положительных элементов не пуст, вычислите их среднее арифметическое, разделив сумму всех элементов на их количество. - Если список положительных элементов пуст, выведите сообщение о том, что таких элементов нет.

4. Вывод результата: - Выведите среднее арифметическое положительных элементов на главной и побочной диагоналях матрицы А.

Примечание: В данном ответе не приведен конкретный код решения задачи, так как требуется лишь описание алгоритма. Если вам нужен конкретный код на определенном языке программирования, пожалуйста, уточните это.