нужно написать прогу в паскале

Question

Написать программу, которая вычисляет среднее арифмитическое вводимое с клавиатуры последовательности дробных чисел. Количество чисел должно задаваться во время работы программы.

Анна · Accepted Answer

Ничего не попутал?

Jourando Di Vix · Answer

Пиши на почту.

Ирина Алеханова · Answer

нужно так пиши, немороч людям то что на пасху красят

Светлана · Answer

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.