Ввести массив из 30 производных чисел и найти сумму всех отрицательных(паскаль)

Question

Ввести массив из 30 производных чисел и найти сумму всех отрицательных(паскаль)

Answer 1

Program gt;
var a:array[1..30] of integer;
i,s:integer;
begin
randomize;
s:=0;
for i:=1 to 30 do
begin
read(a[i]);
write(a[i],' ');
if(a[i]<0)then s:=s+a[i];<br>end;
writeln;
writeln('s=',s);
end.