Question

Вводится 10 чисел. Подсчитать количество и сумму чисел, не равных 5

Помогите пж,даю 50 баллов,технология 7 класс
PascalABC

Answer 1

Ответ:

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.

Объяснение: