Задать вопрос
1 января, 09:10

Дана матрица размерностью nxn найти

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

+5
Ответы (1)
  1. 1 января, 12:24
    0
    Const n=3;

    var a:array[1 ... n, 1 ... n] of integer;

    i, j, min, s:integer;

    upsr, downsr, k:real;

    begin

    for i:=1 to n do

    for j:=1 to n do a[i, j]:=random (10);

    for i:=1 to n do begin

    for j:=1 to n do write (a[i, j]:5);

    writeln;

    end;

    min:=a[1,1];

    s:=0;

    for i:=1 to n do

    for j:=1 to n do begin

    if (a[i, j]i) then min:=a[i, j];

    end;

    for i:=1 to n do

    for j:=1 to n do

    if i
    s:=0;

    for i:=1 to n do

    for j:=1 to n do

    if i>j then s:=s+a[i, j];

    downsr:=s / ((sqr (n) - n) / 2);

    k:=sqr (downsr-upsr);

    writeln ('минимальный элемент выше главной диагонали ', min);

    writeln ('среднее арифметическое элементов выше главной диагонали ', upsr);

    writeln ('среднее арифметическое элементов ниже главной диагонали ', downsr);

    writeln ('квадрат разности средних арифметических значений элементов матрицы ', k);

    end.
Знаешь ответ?
Не уверен в ответе?
Найди верный ответ на вопрос ✅ «Дана матрица размерностью nxn найти Дана матрица размерностью nxn найти минимальный элемент среди элементов расположенных над главной ...» по предмету 📙 Информатика, а если ответа нет или никто не дал верного ответа, то воспользуйся поиском и попробуй найти ответ среди похожих вопросов.
Искать другие ответы