Viết chương trình nhập vào mảng D là dãy số nguyên sau đó đưa ra màn hình các số dương trong dãy tổng các số âm

var s,i:longint;

    a: array[1..10] of longint;

begin

for i:=1 to 10 do

begin

write(‘Nhap phan tu thu ‘,i);

read(a[i]);

if a[i]>0 then s:=s+a[i];

end;

writeln;

write(‘Tong la: ‘,s);

readln

end.

Xin hay nhất