Дана последовательность 2, -3,18,13,-1б,-15,7,13 целых чисел. Составить программу, которая находит сумму положительных членов последовательности.
Решите задачу.

Структуру сам(а) напишешь, вот вообщем решение:begin//a(переменная, которая хранит число, одно из ряда чисел)//b (- переменная, которая считает сумму)b:=0if a<0 thenb:=b+a;end.