Giúp Em Giải Cái Bài Này Giùm Hén

[pkphan]

Cho 1 mảng gồm 10 phần tử. Lập trình tính tổng các số âm:surrender:
tks nhiều hén!!!!!!!!!!!

 

[Bút Tre]

Cho 1 mảng gồm 10 phần tử. Lập trình tính tổng các số âm:surrender:
tks nhiều hén!!!!!!!!!!!

var A:array[1..10] of real;
S: real;
i: byte;
begin
S:=0;
for i:=1 to 10 do
begin
writeln('Nhap phan tu thu', i);
readln(A);
if A<0 then S:=S+A;
end;
writeln('Tong S=',S);
readln
end.