Составить программу на языке pascal, которая позволяет ввести с клавиатуры 10 любых чисел, вычисляет и выводит на экран сумму только положительных из них.
nat17akan
2
21.05.2019 05:30
1
Другие вопросы по теме Информатика
12Куки35
20.12.2020 14:51
kotikmotik55
20.12.2020 14:51
koc12
20.12.2020 14:52
privetloll
20.12.2020 14:53
Vlada20981
09.08.2019 13:50
orehskonastia
06.06.2019 06:20
jdjehdbe
06.06.2019 06:20
v1k2
06.06.2019 06:20
Популярные вопросы
- (3х+2)^2-2х=(3х-1)(3х+1)2х-7+3х=4+х-2х(х+5)=0...
1 - Асиметричні схили Передгір я Криму називаються:...
3 - Определи, какой объём воды вытесняет корабль, если на него действует...
1 - В турнире проводящимся по олимпийской системе (проигравший выбывает)...
1 - 1. Решите задачу. Функции внутреннего с и предложения на конкретный товар...
2 - Найдите длину медианы, проведенной из вершины К в треугольнике АВКНайдите...
3 - Pізні типи втілення теми жаночої долі: романтичний ( Катерина ) реалістично-...
1 - Розкрийте дужки і зведить подібні доданки 2(x-5)-6x...
3 - дома транспортира нет, а задание до 15:00 нужно сдать) номер 648...
2 - Родители имеют веснушки доминантный признак и вторую группу крови.у них...
2
program Positiv;
var i:integer; x,sum:real;
begin
sum:=0;
for i:=1 to 10 do
begin
write('введите ',i,'-е число: ');
readln(x);
if x>0 then sum:=sum+x;
end;
writeln('Cумма положительных чисел равна ',sum);
end.