Предмет: Информатика, автор: Kkatrina

с клавиатуры ввели 10 чисел положительных и отрицательных.необходимо вывести на экран сумму всех положительных чисел

Ответы

Автор ответа: Kitsu

0

var i,a,s:integer;

begin

for i:=1 to 10 do begin readln(a); if a>0 then s:=s+a; end;

writeln(s);

end.

Предыдущий вопрос

Следующий вопрос

Интересные вопросы

Предмет: Физика, автор: Yarik245

Пожалуйста,кто знает,задание по середине.Очень срочно прошу.Даю 100 баллов.
Там 3 вопроса.

7 лет назад

Предмет: Литература, автор: Аноним

Назовите достопримечательности мира. Пж!

7 лет назад

Предмет: Алгебра, автор: ОльчикАкс

Чему равен корень из 208?

7 лет назад

Предмет: Алгебра, автор: HardJump

Помогите решить систему по алгебре:

3х-у=1,

ху=10

10 лет назад

Предмет: Обществознание, автор: 19татьяна19

помогите пожалуйста!срочно нужно до завтра!отвечайте на все вопросы.1.гражданин к.решил вступить в законный брак со своей двоюродной сестрой.как вы думаете,будет ли зарегистрирован этот брак?свой ответ поясните.2.супруги после 15 лет совместной жизни подписали брачный договор об изменении законного режима совместной собственности.правомерны ли действия супругов?ответ поясните.3.подберите в периодической печати примеры,иллюстрирующие правонарушения в россии.определите виды этих правонарушений.4.согласны ли вы с мнением французского юриста ж.карбонье:"если человек обладает развитым правосознанием,то так ли уж нужна flo информация о законе?при таком правосознании гражданин сумеет понять,что яв-ся законным?"

10 лет назад