Дана матрица размерностью nxn найти Дана матрица размерностью nxn найти минимальный элемент среди элементов расположенных над главной диагональю матрицы. Найти квадрат разности среди арифметических значений элементов матрицы ,н...
Дана матрица размерностью nxn найти
Дана матрица размерностью nxn найти минимальный элемент среди элементов расположенных над главной диагональю матрицы. Найти квадрат разности среди арифметических значений элементов матрицы ,находящихся ниже и выше главной диагонали
Гость
Ответ(ы) на вопрос:
Гость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 ij 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.
Не нашли ответ?
Похожие вопросы