Составить программу на языке Паскаля. Нужно ввести 10 чисел и найти сумму чисел больше нуля

1

Ответы и объяснения

  • Участник Знаний
2014-04-01T04:11:00+00:00
Var
  x,s:real;
  i:integer;
begin
for i:=1 to 10 do
  begin
  write('Введите число ',i,': ');
  readln(x);
  if x>0 then s:=s+x
  end;
writeln('Сумма положительных чисел: ',s)
end.