Question

Найти сумму положительных чисел из 8-и введённых с клавиатуры
напишите программу

Answer 1

pascal:

var

i, sum, count: integer;

begin

for count := 0 to 7 do

 begin

   readln(i);

   sum := sum + i;

end;

writeln(sum);

end.