Дан массив из 20 действительных чисел. Напишите программу, которая складывает отдельно все положительные элементы этого массива, а отдельно отрицательные элементы и выдает на экран полученные результаты. Желательно подробную программу, буду всем благодарна)

Огромное спасибо)))

Не за что=))

Var A:array[1..20]of real;B,C:real;i:byte;BeginWriteLn('Введи элементы массива через пробел');For i:= 1 to 20 do Read(A[i]);For i:= 1 to 20 do if A[i]>0 then B:=B+A[i] else C:=C+A[i];WriteLn('Сумма положительных элементов = ',B);WriteLn('Сумма отрицательных = ',C)End.