Дан одномерный массив из 5 элементов. Найти сумму всех положительных элементов массива. Начало такое var a: array[1 ... 5] of integer;

var

a: array[1 ... 5] of integer; / / объявление массива.

i, s : integer; / / объявление переменных целочисленного типа.

begin

writeln ('Введите пять целых чисел, для заполнения массива: '); / / вывод строки на экран.

for i : = 1 to 5 do / / начало цикла из пяти шагов.

begin

readln (a[i]); / / считываем элемент массива с номером i.

if a[i] >0 then / / если элемент положительный - считаем сумму.

s:=s + a[i];

end;

writeln ('Сумма положительных элементов массива равна : ', s); / /вывод строки на экран.

end.