Разница между ячейками А1 и В2 составляет 1 . Число записывается в ячейку A1, если число 8 введено в ячейку B2 .
285
491
Ответы на вопрос:
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]< min) and (j> i) then min: =a[i,j]; end; for i: =1 to n do for j: =1 to n do if i< j then s: =s+a[i,j]; upsr: =s/((sqr(n)-n)/2); 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.
Популярно: Информатика
-
ninja2005xxx28.07.2020 04:05
-
maxim88005553535108.05.2021 04:29
-
КекЛолКарвалол19.05.2022 23:14
-
ep1cook1e17.06.2021 00:44
-
antonangel88p09szr20.06.2023 10:48
-
тамик5114.08.2022 20:43
-
reshitov12303.10.2022 21:56
-
3422425315.10.2021 05:18
-
залина10225.05.2022 19:14
-
dipo123452906.03.2020 04:04