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

Ответы

Dasha07Dasha 28.05.2020 06:20

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.

ПОКАЗАТЬ ОТВЕТЫ

Другие вопросы по теме Информатика

dinoirino18 02.06.2020 16:33

Одномерный массив это данные какого типа?...

myrzik5293p081ps 02.06.2020 16:35

написать программу на языке C, в visual studio Даны катеты прямоугольного треугольника a и b. Найти его гипотенузу c и периметр P: c = √ a^2 + b^2 , P = a + b + c. Нужен только...

мари13121 01.06.2020 16:39

Выполнить упражнения в microsoft word, упражнения в документе...

Selch 26.07.2019 19:02

Вобразовательном учреждении проходит обучение всего 124 человека из них 45 мальчиков и 57 девочек какой системе счисления велся учет обучающихся...

Zhora231 22.05.2020 20:03

Для чого служить прикладне програмне забезпечення?A) гра в комп ютерні ігри, Б) виконання необхідних користувачу робіт,В) контроль і керування комп ютерним обладнаннямГ) перевірка...

Petrov200104 22.05.2020 20:03

1.Определите, что будет напечатано в результате работы следующей программы. а). var y,i: integer;begin y := 0; for i := 1 to 3 do y := y + 4 * i; writeln(y);end.б). var s,k:...

Qqwqqqq 22.05.2020 20:01

Сколько раз будет выполнен этот цикл? i:=21; repeat i:=i +5 until i 21;...

nataliyadydina 22.05.2020 20:01

Какое наибольшее число нужно написать вместо многоточия, чтобы 2 раза напечаталось слово привет ? i:=12; repeat writeln( привет ); i:=i-2 until i ...;...

Капуста11111 13.11.2019 11:21

Найти произведение всех элементов массива меньших 0 массив из 8 элементов заполненных с датчика случайных чисел от -3 до 8, ...

kz2388 13.11.2019 11:14

Номер 17 и 18информатика 8 класс...

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

Популярные вопросы