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

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

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

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

Question

Информатика

Емилиана

9 мая, 17:49

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

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

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

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

+2

Ответы (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.