Напишите подпрограмму на нахождение среднего арифметического. - Turbo Pascal

Формулировка задачи:

Напишите подпрограмму на нахождение средне арифмитического. С помошью этой подпрограммы найти количество чисел, которые выше средне арифмитического из ряда чисел заданных с клавиатуры , заканчиваюшихся -777. Помогите пожауйста с не простой задачей.

Код к задаче: «Напишите подпрограмму на нахождение среднего арифметического. - Turbo Pascal»

textual
const
    LAST = -777;
function BiggerThenAvr(var avr: Real; var count: LongInt): LongInt;
var
    x: Real;
begin
    Write('Введите число (конец ввода: ', LAST, '): ');
    ReadLn(x);
    if (x <> LAST)
    then
    begin
        avr := avr + x;
        Inc(count);
        Result := BiggerThenAvr(avr, count) + Ord(x*count > avr);
    end
    else
        Result := 0;
    BiggerThenAvr := Result;
end;
var
    avr: Real;
    count: LongInt;
begin
    avr := 0;
    count := 0;
    WriteLn(BiggerThenAvr(avr, count));
    ReadLn;
end.

9   голосов, оценка 3.889 из 5


СОХРАНИТЬ ССЫЛКУ