Консультация № 138120
27.05.2008, 17:41
0.00 руб.
0 1 1
Написать процедуру для нахождения среднего арифметического числа в одномерном массиве B размерностью N.

Обсуждение

Неизвестный
27.05.2008, 20:24
общий
это ответ
Здравствуйте, Sanq4!
Задача с пояснениями в приложении.
Прцедуру я назвал GetSA.
Удачи!!!


Приложение:
const N=10;{B-массив, n-кол-во элементов в массиве, SA- переменная куда сохранить результат}procedure GetSA(B: array of integer; n: integer; var SA: real);var {sum-сумма элементов массива, i-счетчик для For} Sum, i: integer;begin {Инициализируем сумму} sum:=0; {В цикле перебираем весь массив и вычисляем сумму} for i:=0 to n-1 do inc(sum, B[i]); {вычисляем среднее арифметическое} SA:=sum/n;end;var {i-счетчик для For, sa-среднее арифметическое, a-массив} i: integer; SA: real; a: array [1..N] of integer;begin randomize; {В цикле заполняенм массив случайными числами и выводим их через пробел} for i:=1 to N do begin a[i]:=random(50)-25; write(a[i], ‘ ‘); end; {Получаем ср. арифм.} GetSa(a, N, SA); writeln; {вывод} write(‘Ср. арифм.: ‘, SA:8:3); readln;end.
Форма ответа