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

Question

Информатика

Натальюшка

10 сентября, 00:29

Составить программу на языке 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.