Помогите написать программу в Паскале.

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

Question

Информатика

Артемонка

6 апреля, 00:03

Помогите написать программу в Паскале.

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

+2

Ответы (1)

Знаете ответ на вопрос?

Варя · 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.