Вычислить среднее арифметическое значение последовательности целых чисел - Pascal ABC
Формулировка задачи:
Задача:
Вычисляет среднее арифметическое значение последовательности
целых чисел. Первое, считываемое целое число, определяет
количество значений, которое осталось ввести (оно не
учитывается в вычислениях). Программа должна считывать
значения по одному. Использовать оператор цикла for.
Решение задачи: «Вычислить среднее арифметическое значение последовательности целых чисел»
textual
Листинг программы
var i,a,b:integer; BEGIN Read (a); For i:=1 to a do begin Read (a); b:=b+a; end; Writeln (b/i); END.