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

Question

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

Comments

Второе условие не совсем понятно, которое про квадрат разности арифметических значений

---

Все как дали тут написала. Если бы что-то понимала ,сюда не писала бы))

---

Тоже логично. Могу сделать первое условие, второе пока что не понимаю)

---

Стоп, проверь в условии: Там вместо "среди" случаем не "средних арифметических значений"?

---

да-да!средних)прости пожалуйста фотка неочень

Answer 1

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 is:=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.