Bài 9. Làm việc với dãy số

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Jeri James

Viết chương trình nhập vào 1 dãy số nguyên gồm M phần tử, tính tổng các số âm trong dãy số đó. In ra màn hình giá trị tổng

Minh Lệ
5 tháng 4 2023 lúc 23:12

Program HOC24;

var i,m: integer;

t: longint;

a: array[1..1000] of integer;

begin

write('Nhap so phan tu M: '); readln(m);

for i:=1 to m do 

begin

write('Nhap so thu ',i,': '); readln(a[i]);

end;

for i:=1 to m do if a[i]<0 then t:=t+a[i];

write('Tong la: ',t);

readln

end.


Các câu hỏi tương tự
Huy Hoang Nguyen
Xem chi tiết
Hoàng Thị Vân
Xem chi tiết
Phương Linh
Xem chi tiết
Hồ Thị Ngọc Vy
Xem chi tiết
Châu Thùy
Xem chi tiết
Mỹ Phượng
Xem chi tiết
Ánh sao
Xem chi tiết
Uchiha Obito
Xem chi tiết
Ánh sao
Xem chi tiết