1. Зачем вы подключаете модуль crt, если вы его функции нигде не используете?
2. Вы не считаете количество введенных чисел, соответственно, и среднее арифметическое не вычисляете.
3. Среднее арифметическое - вещественного типа/
4.Непонятно, зачем вы постоянно выводите значение суммы, если вам в задании нужно вывести среднее арифметическое.
Вот исправленный вариант задачи
Цитата:
program tex;
var s:Real; k,a:integer;
begin
s:=0;
k:=0;
repeat
write('vvedite chislo (0 = konec vvoda): ');
readln(a);
s := s + a;
inc(k);
until a = 0;
writeln('srednee arifmet ravno: ', s/k:4:6);
readln
end.
|