Меню сайта

Задача №26
Ввести двумерный массив из —nхmэлементов, найти среднее арифметическое элементов массива.
Program -dmas_2-
const n=3-m=4-
Var a:array[1..n,1..m] -of integer-
I,j:integer-
s:real-
Begin
For i:=1 to n do
For j:=1 to m do
Begin
Writeln(‘введите элемент — -‘)- —
Readln(a[i,j])-
End-
s:=0-
For i:=1 to n do
For j:=1 to m do
-s:=s+a[i,j]-
Writeln(‘Среднее арифметическое =’,s/(n+m):4:4)-
Readln-
End.
Категория: Массивы | Дата: 19.12.12

Меню раздела
Блок