Составить программу на языке Pascal, которая позволяет ввести с клавиатуры 10 любых чисел, вычисляет и выводит на экран сумму только положительных из них.

Question

Информатика

Наталья

29 октября, 11:47

Составить программу на языке Pascal, которая позволяет ввести с клавиатуры 10 любых чисел, вычисляет и выводит на экран сумму только положительных из них.

+4

Ответы (1)

Знаете ответ на вопрос?

Тимоша · Answer 1

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.