Дана вещественная квадратная матрица А порядка n. Найти среднее
10-11 класс
|
арифметическое среди положительных элементов матрицы, находящихся на
главной и побочной диагоналях. Выдать сообщение, если таких элементов нет.
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.
Другие вопросы из категории
1) параллельном 2)логическом 3) динамическом 4) объективно-ориентированном
Читайте также
параллельной побочной
№2 В данном одномерном массиве Х[1..n] найти сумму отрицательных элементов , кратных 7.
двумерной матрицы, находящиеся над побочной диагонали; упорядочить их по возрастанию и найти их среднее арифметическое.