Написать программу, которая вычисляет среднее арифмитическое вводимое с клавиатуры последовательности дробных чисел. Количество чисел должно задаваться во время работы программы.
Ничего не попутал?
Пиши на почту.
нужно так пиши, немороч людям то что на пасху красят
program mailru;
var
i, kolvo: integer;
sum, sred: real;
massiv: array[0..1000] of real;
begin
writeln('Введите колличество элементов');
read(kolvo);
kolvo:=kolvo-1;
for i := 0 to kolvo do
read(massiv);
writeln('Ввод окончен');
for i := 0 to kolvo do
sum := sum + massiv;
kolvo:=kolvo+1;
sred := sum/kolvo;
writeln('Среднее арифметическое равно: ', sred);
end.
⇢