Дана матрица размерностью 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]< 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.

#include < iostream> #include < cstdlib> #include < locale> #include "string.h" #include "stdio.h" #include "stdlib.h" #include < cmath> using namespace std; void func(int num); inline void reverse(int c[1]); void str(int num); int n2[1]; int main(int argc, char *argv[]) { system("chcp 1251 > nul"); setlocale(lc_all, "russian"); char num[10]; int cc; printf("введите число и его сс: "); cin > > num > > cc; char *pint; int hh = strtol(num, & pint, cc); func(hh); return exit_success; } void func(int num) { int c = 2; int i = 0, j = 10; int nn = num; int pr = 0; for(; j > i; { pr = nn % c; n2[j] = pr; nn /= c; }reverse(n2); } inline void reverse(int c[1]){ int len = 11; int j = len-1; for (int i = 0; i < len; i++){}; int ber; for(int i = 0; i < len; i++) ber += c[i] * pow(10, j), j--; str(ber); } void str(int num) { int ber = num; int c = 10; char buffer[20]; char *nm; nm = itoa(ber, buffer, c); string aa = nm; for(int i = 0; i < strlen(nm); i++){ if(nm[i] == 0 and nm[i] ! = nm[i+1]) for(int j = i; j; aa.erase(aa.begin() + i); } int ed = 0, nu = 0; for(int i = 0; i < strlen(aa.; i++){ if(aa[i] == '1') ed++; else nu++; } cout < < "двоичная запись: " < < aa < < endl; printf("количество единиц: %d\n количество нулей: %d", ed, nu); }

Const n = 10; var a: array[0..10] of integer;   i,s: integer; begin   for i : = 1 to n do begin       a[i]: =random(21)-10;       write(a[i]: 4);   end;   writeln;   for i : = 1 to n do       if a[i] mod 3 = 0 then s : = s + a[i];   writeln('сумма кратных трем  ',s); end. тестовое решение:   8  -4    8  10    2    1  -7    9    2    0 сумма кратных трем 9