Question

Помогите написать программу в Паскале.
Ввести с клавиатуры 6 произвольных чисел. Вычислить среднее арифметическое тех чисел, которые делятся на 4 и заканчиваются на 5.( Остаток на деление на 10 равен 5).

Answer 1

var i, x, count: integer;
    sum: real;

begin
    sum := 0;
    count := 0;
    for i := 1 to 6 do
        begin;
        writeln('Введите число');
        readln(x);
        if (x mod 4 = 0) or (x mod 10 = 5) then
            begin;
            sum := sum + x;
            count := count + 1;
            end;
        end;
    writeln(sum/count);
end.