Программа delphi Одномерный массив

Question

Написать программу

длина массива 10, real

В массиве определить сумму положительных и сумму отрицательных элементов в массиве, и записать эти суммы вместо 1-го и последнего элементов массива соответственно!

Заранее спасибо за помощь!

Юлия · Accepted Answer

s1:=0;s2:=0;
for i:=1 to 10 do
begin
if a[i]>0 then s1:=s1+a[i] else s2:=s2+a[i];
end;
a[1]:=s1;a[10]:=s2;

Алексей Зиновьев · Answer

Подарить учебник по дельфям?