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.Брюссель,Лондон,Мадрид,Москва,Нью-Йорк,Оттава,Париж. нью-йорк не столица 5.Бунгало,иглу,офис,хижина,шале. офис не место для проживания 6.Волга,Дунай,Нил,Рейн,Сена. все реки кроме нила текут в европейской части 7."Волга","Жигули","Москвич","Руслан","Чайка".все транспорт руслан самолет 8.Гранит,кварц,мрамор,полевой шпат,торф. торф не является твердой породой 9.Какао,кофе,пальто,резюме,эссе. все среднего рода кофе мужского
эт че урок музыки мы его даже не учим