Viết chương trình Tính tổng các số âm bé hơn 300

Số âm nhỏ hơn 300 là rất nhiều, nên phải là tính số dương mới đúng, hoặc là tính tổng các số âm lớn hơn -300 cũng đúng

*Tính tổng các số dương nhỏ hơn 300

program tong_duong;

ues crt;

var i,t:longint;

begin

    clrscr;

    t:=0;

    for i:=1 to 299 do t:=t+i;

    write(‘Tong cac so duong be hon 300 la: ,t);

    readln;

end.

*Tổng các số âm lớn hơn -300

program tong_am;

ues crt;

var i,t:longint;

begin

    clrscr;

    t:=0;

    for i:=-299 to -1 do t:=t+i;

    write(‘Tong cac so am lon hon -300 la: ,t);

    readln;

end.