• найти сумму отрицательных из 10 любых вещественных чисел введенных с кавиатуры

Ответы 1

  • program test;var i:integer; n, sum: real;begin   sum:=0;   write('Enter 10 numbers: ');   for i:=1 to 10 do   begin      read(n);      if n < 0 then         sum:=sum+n;   end;   writeln('Sum = ', sum);   readln;end.

  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years