Ребята, помогите пожалуйста Даны двумерные массивы A[m,n], B[m,n]

Question

Ребята, помогите пожалуйста Даны двумерные массивы A[m,n], B[m,n]. Сформировать двумерный массив Cтакой же размерности, в котором каждый элементC[i,j] равен среднему арифметическому элементов A[i,j] и B[i,j].

Answer 1

91

alekseyt

22 августа 2022

const n=5; m=5; var a, b: array[1… n, 1… m] of integer; c: array[1… n, 1… m] of real; i, j, s, count: integer; begin for i: =1 to n do for j: =1 to m do begin a[i, j]: =random (20); b[i, j]: =random (20); s: =s+a[i, j]+b[i, j]; inc (count); end; writeln ('Ср. Арифметическое эл.: ', s / count); for i: =1 to n do for j: =1 to m do begin c[i, j]: =s / count; write (c[i, j], '); if (j mod m=0) then writeln; end; end.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: