Вводится 10 чисел. Подсчитать количество и сумму чисел, не равных 5
Помогите пж,даю 50 баллов,технология 7 класс
PascalABC
Ответы
Ответ дал:
0
Ответ:
var x,s,i: integer;
begin
s:=0;
for i:=1 to 10 do begin
read(x);
if (x<>5) then s:=s+x;
end;
write(s);
end.
Объяснение:
Похожие вопросы
2 года назад
2 года назад
2 года назад
8 лет назад
9 лет назад