Задание:
1) дан двумерный массив целых чисел размерностью 5 х 7. Найти и вывести на экран среднее арифметическое элементов этого массива
Решение:
Program n1; Uses CRT; Const n=5; m=7; Var A: array[1… n,1… n] of integer; i,j,s,k: integer; beginclrscr; randomize; For i: =1 to n do begin For j: =1 to n do begin a[i,j]: =random (100); write (a[i,j]: 4); s: =s+a[i,j]; k: =k+1; end; writeln; end; Writeln ('srednee arifmeticheskoe=',s/k: 4:4); readlnend.
Знаете другой ответ?