С клавиатуры вводятся целые числа. Окончание ввода – число ноль. Ноль используется
только для указания окончания ввода и в остальных расчётах не участвует. Подсчитать
среднее арифметическое тех отрицательных чисел, которые оканчиваются на цифру «5».
Учесть, что таких чисел может не быть. PascalABC
Ответы
Ответ дал:
0
var sum,k,a: integer;
begin
a:=1; sum:=0; k:=0;
writeln('Вводите числа');
while a<>0 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.
begin
a:=1; sum:=0; k:=0;
writeln('Вводите числа');
while a<>0 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.
Ответ дал:
0
Спасибо огромное!
Ответ дал:
0
=)
Вас заинтересует
1 год назад
1 год назад
6 лет назад
6 лет назад
9 лет назад
9 лет назад
9 лет назад