Задание:
Ребята, помогите пожалуйста Даны двумерные массивы A[m,n], B[m,n]. Сформировать двумерный массив Cтакой же размерности, в котором каждый элементC[i,j] равен среднему арифметическому элементов A[i,j] и B[i,j].
Решение:
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.
Знаете другой ответ?