profile
Размещено 4 года назад по предмету Информатика от Acril

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

  1. Ответ на вопрос
    Ответ на вопрос дан JustPeople
    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. Ответ на вопрос
      Ответ на вопрос дан Acril
      спасибо большое, а можно это как-нибудь на с++ написать?
Не тот ответ на вопрос, который вам нужен?
Найди верный ответ
Самые новые вопросы
tegysigalpa2012
Русский язык - 5 лет назад

Помогите решить тест по русскому языку тест по русскому языку «местоимение. разряды местоимений» для 6 класса 1. укажите личное местоимение: 1) некто 2) вас 3) ни с кем 4) собой 2. укажите относительное местоимение: 1) кто-либо 2) некоторый 3) кто 4) нам 3. укажите вопросительное местоимение: 1) кем-нибудь 2) кем 3) себе 4) никакой 4. укажите определительное местоимение: 1) наш 2) который 3) некий 4) каждый 5. укажите возвратное местоимение: 1) свой 2) чей 3) сам 4) себя 6. найдите указательное местоимение: 1) твой 2) какой 3) тот 4) их 7. найдите притяжательное местоимение: 1) самый 2) моего 3) иной 4) ничей 8. укажите неопределённое местоимение: 1) весь 2) какой-нибудь 3) любой 4) этот 9. укажите вопросительное местоимение: 1) сколько 2) кое-что 3) она 4) нами 10. в каком варианте ответа выделенное слово является притяжательным местоимением? 1) увидел их 2) её нет дома 3) её тетрадь 4) их не спросили

Информация

Посетители, находящиеся в группе Гости, не могут оставлять комментарии к данной публикации.