С клавиатуры вводятся целые числа. Окончание ввода - число ноль. Ноль используется

только для указания окончания ввода и в остальных расчётах не участвует. Подсчитать

среднее арифметическое тех отрицательных чисел, которые оканчиваются на цифру "5".

Учесть, что таких чисел может не быть. PascalABC

Question

Информатика

Виолка

16 июня, 11:46

С клавиатуры вводятся целые числа. Окончание ввода - число ноль. Ноль используется

только для указания окончания ввода и в остальных расчётах не участвует. Подсчитать

среднее арифметическое тех отрицательных чисел, которые оканчиваются на цифру "5".

Учесть, что таких чисел может не быть. PascalABC

+1

Ответы (1)

Знаешь ответ?

Зина · Answer 1

Var sum, k, a: integer;

begin

a:=1; sum:=0; k:=0;

writeln ('Вводите числа');

while a0 do begin

readln (a);

if (a<0) and (a mod 10=-5) then begin k:=k+1; sum:=sum+a; end;

end;

if k=0 then writeln ('Таких чисел нет') else writeln ('Среднее арифметическое равно ', sum/k);

readln

end.