Помогите пожалуйста написать программу по массиву!!!

[Mara89]

Дан массив
А1=-1
А2=6
А3=-2
А4=5
А5=0
А6=-4
Найти сумму отрицательных членов.Написать программу в паскале

[maladoy]

uses crt;
var i:integer;
s:integer;
a:array [1..6] of integer;
begin
for i :=1 to 6 do
readln(a[i]);
s:=0;
for i :=1 to 6 do
if a[i]<0 then s:=s+a[i];
writeln('summa = ',s);
end.

[alex_fcsm]

const n=6;
var a:array[1..n] of integer;
    i,sum:integer;

begin
for i:=1 to n do
 read(a[i]);
sum:=0;
for i:=1 to n do
 if a[i]<0 then sum:=sum+a[i];
writeln(sum):
end.

[Mara89]

Спасибо!!!!

[maladoy]

отзыв добавь!!! нам много не надо!!!