Составить программу нахождения среднего арифметического таблицы ( на языке Паскаль ).
Составить программу нахождения среднего арифметического таблицы ( на языке Паскаль ).
Гость
Ответ(ы) на вопрос:
ГостьЕсли таблицей считать матрицу n*m то может получиться так:
//PascalABC.NET (версия 3.1, сборка 1198 от 11.03.2016)
begin
var s:=0;
var n:=ReadlnInteger('Введите N');
var m:=ReadlnInteger('Введите M');
var a:=MatrixRandom(n,m); println(a);
for var i:=0 to n-1 do
for var j:=0 to m-1 do s:=s+a[i,j];
println('Среднее арифметическое:',s/(n*m));
end.
Не нашли ответ?
Похожие вопросы