Question

Составить программу сложения, которая находит сумму 10 целых чисел, вводимых с клавиатуры

Answer 1

Объяснение:

program z1;

var a,b,c,d,e,f,g,e,h,j,s:integer;

begin

read(a,b,c,d,e,f,g,e,h,j);

s:=a+b+c+d+e+f+g+e+h+j;

write(s);

end.