Ответы на вопрос:
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
Объяснение:
Популярно: Информатика
-
Спасибо66611.05.2023 15:48
-
badmaevo13.12.2022 10:27
-
77linnik13.12.2022 09:14
-
Hatmonu06.02.2022 19:41
-
Школьник5гокласса206.12.2021 02:28
-
njjjjjjtgl30.01.2020 11:10
-
sofyabelik18.06.2023 13:12
-
daniiltpgatov615.11.2021 14:38
-
Damira12345104.04.2021 20:16
-
Няшка1love16.02.2020 03:21