Const n=5; m=7; var x: array[1..n,1..m] of integer; i,j,s: integer; begin randomize; writeln('исходный массив'); for i: =1 to n do begin for j: =1 to n do begin x[i,j]: =random(100); write(x[i,j]: 3) end; writeln end; s: =0; i: =1; while i< =n do begin for j: =1 to m do if x[i,j] mod 2=0 then s: =s+x[i,j]; i: =i+2 end; writeln('s=',s) end. контрольное решение исходный массив 77 38 20 72 25 22 5 99 53 21 74 8 80 31 28 35 24 28 79 29 21 25 51 71 56 s=376
sbn07373
27.09.2022
/*дан массив x(n,m) .найти среднее арифметическое тех строк массива, первый элемент которых положительный*/#include < iostream> #include < time.h> #define m 5#define n 5using namespace std; void printarray(int *mas, int n,int m)//инициализация и вывод массива { srand(time(0)); for (int i = 0; i < n; i++) { for (int j = 0; j < m; j++) { *mas = rand() % 21-10; cout < < *mas < < "\t"; mas++; } cout < < endl; }} void srarray(int mas[][m], int n)//нахождение и подсчет тех строк, где первый элемент положительный{ int a; double sum = 0; for (int i = 0; i < n; i++) { double sr = 1; if (mas[i][0] > 0) { for (int j = 0; j < m; j++) { sum += mas[i][j]; } sr = sum / m; cout < < "ср элеменитов " < < i + 1 < < "-й строки = " < < sr < < endl; } else ; } } void main()//основная функция{ setlocale(lc_all, "rus"); int x[n][m]; printarray(& x[0][0], n, m); cout < < endl; cout < < "==================================="< < endl; srarray(x, n); system("pause"); }