Задать вопрос
20 декабря, 12:03

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

+5
Ответы (1)
  1. 20 декабря, 13:30
    0
    program zz1;

    const n=5;

    var i, j, s, k: integer;

    m: array[1 ... n, 1 ... n] of integer;

    begin

    for i:=1 to n do begin

    for j:=1 to n do begin

    m[i, j]:=random (10) - 5; / /заполнение матрицы случайными числами и вывод на экран

    write (m[i, j]:3);

    end;

    writeln;

    end;

    for i:=1 to n do begin / / проверка элементов выше побочной диагонали

    for j:=1 to n do begin

    if j 0 then begin s:=s + m[i, j]; k:=k+1; end;

    if j=i then if m[i, j] > 0 then begin s:=s + m[i, j]; k:=k+1; end;

    end;

    end;

    if s = 0 then write (' таких элементов нет ') else write (' среднее арифметическое найденных элементов = ', s/k); / /вывод ответа

    end.
Знаешь ответ на этот вопрос?
Сомневаешься в правильности ответа?
Получи верный ответ на вопрос 🏆 «Дана вещественная квадратная матрица А порядка n. Найти среднее арифметическое среди положительных элементов матрицы, находящихся на ...» по предмету 📕 Информатика, используя встроенную систему поиска. Наша обширная база готовых ответов поможет тебе получить необходимые сведения!
Найти готовые ответы