Помогите пожалуйста Дано N целое число и N x N размер матрицы. Составить блок-схему и **...

Question

Помогите пожалуйста
Дано N целое число и N x N размер матрицы.
Составить блок-схему и на языке Turbo Pascal написать программу,которые подсчитают и напечатают среднее арифметическое для печати матричных элементов главной диагонали вниз, значение которых относятся данному [a;b] диапазону .

---

Comments

Random можно использовать?

---

или как именно заполняется матрица? только не говори что с клавиатуры

---

сейчас пример отправлю

---

гониво, все равно с рандомом сделаю. с клавиатуры матрицу - это издевательство

Answer 1

Const
    handsfree = false;

var
    matrix: array[1..100, 1..100] of real;
    sum, a, b: real;
    i, j, n, k: integer;

begin
    {ввод матрицы}
    if handsfree then begin
        n := random(20) + 2;
    end
    else begin
        write('n =');
        readln(n);
    end;
    
    writeln('Matrix data:');
    for i := 1 to n do
    begin
        for j := 1 to n do
            if handsfree then begin
                matrix[i, j] := random(100) - 50;
                write(matrix[i, j]:4, ' ')
            end
            else
                read(matrix[i, j]);
        writeln;
    end;
    
    {сумма, произведение, пр. агригаты}
    write('Enter a, b =');
    readln(a, b);
    sum := 0;
    k := 0;
    for i := 1 to n do
        if (matrix[i, i] >= a) and (matrix[i, i] <= b) then {если нужен фильтр}<br>        begin
            sum := sum + matrix[i, i];
            k := k + 1;
        end;
    
    if k > 0 then
        writeln('Average (selected) = ', sum / k)
    else writeln('Such elements not found');
end.

Comments

если сделать handsfree = true? то будет автоматическое заполнение

---

if (matrix[i, i] >= a) and (matrix[i, i] <= b) then {если нужен фильтр}<br> begin
sum := sum + matrix[i, i];

---

zdes [i,i] ili [i,j]?

---

i chto znachit handsfree i random?

---

random - это функция, которая возвращает случайное число, генератор случайных чисел в неком деапазоне

---

handsfree - это переменная такая

---

хотя в данной программе это константа)

---

в зависимости от ее значения действие программы меняется.

---

zdes [i,i] потому что мы идем по центральной диагонали

---

j = i