Дан массив: -7, 0, -3, 11, 5. Найти сумму отрицательных элементов. в Pascal...

Question

Дан массив: -7, 0, -3, 11, 5. Найти сумму отрицательных элементов. в Pascal ABC.

пожалуйста.

Answer 1

var a:array[0..4] of integer = (-7, 0, -3, 11,5);
var i,sum:integer;
begin
for i:=0 to 4 do
  if(a[i]<0) then sum:=sum+a[i];<br>writeln(sum);
readln;  
end.