Среднее арифметическое последовательности чисел - Pascal (80608)

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

Ввести последовательность целых чисел, заканчивающихся числом k. Вычислить среднее арифметическое чётных чисел. (случайное число k генерируется заранне, до ввода всех чисел)

Решение задачи: «Среднее арифметическое последовательности чисел»

Листинг программы

procedure Rec(sum: LongInt; count: LongWord; const k: ShortInt);
var
    temp: ShortInt;
begin
    Write('Input number (-128..127): '); ReadLn(temp);
    if (temp <> k)
    then
    begin
        if (Not Odd(temp))
        then
        begin
            Inc(sum, temp);
            Inc(count);
        end;
        Rec(sum, count, k);
    end
    else
        if (count = 0)
        then
            WriteLn('No one positive!')
        else
            WriteLn('AVG=', (sum / count):0:3);
end;
var
    k: ShortInt;
begin
    Randomize;
    k := Random(256) - 128;
    WriteLn('k=', k);
    if (Odd(k))
    then
        Rec(0, 0, k)
    else
        Rec(k, 1, k);
end.

Объяснение кода листинга программы

Объявляется процедура Rec с параметрами:
- sum типа LongInt (сумма чисел)
- count типа LongWord (количество чисел)
- k типа ShortInt (значение k)
Объявляется переменная temp типа ShortInt.
Выводится сообщение Input number (-128..127): и пользователь вводит значение для переменной temp.
Если значение temp не равно k, то выполняется следующий блок кода, в противном случае выполнится другой блок. 4.1. Если temp является четным числом, то сумма sum увеличивается на temp и количество count увеличивается на 1. 4.2. Вызывается процедура Rec с передачей параметров sum, count и k.
Если temp равно k и количество count равно 0, то выводится сообщение No one positive!.
Если temp равно k и количество count не равно 0, то выводится сообщение AVG= и среднее арифметическое (sum / count) со значением округления до 3 знаков после запятой.
Объявляется переменная k типа ShortInt.
Генерируется случайное значение для k от -128 до 127.
Выводится сообщение k= и значение переменной k.
Если k является нечетным числом, то вызывается процедура Rec с передачей параметров 0, 0 и k. В противном случае вызывается процедура Rec с передачей параметров k, 1 и k.