Помогите написать программу в Паскале. Ввести с клавиатуры 6 произвольных чисел....

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.

Comments

Из всех 6 чисел некоторые будут делаться на 4 без остатка, а другие при делении на 10 будут с остатком 5. Но это не обязательно одно и то же число. И проблема основная у меня возникла уже после того, как сумма чисел уже получилась, но вот как после этого найти среднее арифметическое из этой суммы, я не знаю. Ведь из 6 чисел, заданных на клавиатуре, могут подходить только некоторые.

---

Типа может быть ИЛИ то, которое делится на 4 ИЛИ то которое оканчивается на 5? Не обязательно, чтобы выполнялись оба условия? Значит вместо "and" надо прописать "or"

---

writeln(sum); - тут я не дописал / 6

---

writeln(sum/6);

---

Исправил программу

---

А, нет, одну фигню там не учёл, ща исправлю

---

Там главная проблема в том, что среднее арифметическое некоторых чисел равно их сумме делёной на количество этих чисел. А здесь количество чисел, которые попадут под заданный нами критерий, неизвестно. Следовательно делить всю сумму на 6 бесполезно. Но в любом случае большое спасибо за ответ

---

Исправил твою проблему

---

Теперь сумма делится на кол-во подходящих чисел

---

Спасибо большое, долго не получалось понять, как решать данную задачу