Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Cầu Nguyễn

6.Hãy viết chương trình nhập một dãy số (độ dài của dãy được nhập từ bàn phím). In dãy số vừa nhập, tính và in các tổng theo yêu cầu:

 a)Tổng các số âm;

 b)Tổng các số không âm;

 c)Tổng các số lẻ;

 d)Tổng các số chẵn;

HT.Phong (9A5)
24 tháng 4 2023 lúc 13:43

Uses crt;

var i,n,k,u,f,y: longint;

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

begin clrscr;

readln(n);

for i:=1 to n do read(a[i]); readln;

writeln(a[i]);

for i:=1 to n do if(a[i]<0) then k:=k+a[i];

for i:=1 to n do if(a[i]>0) then u:=u+a[i];

for i:=1 to n do if(a[i] mod 2<>0) then f:=f+a[i];

for i:=1 to n do if(a[i] mod 2=0) then y:=y+a[i];

writeln('Tong cac so am la: ',k);

writeln('Tong cac so khong am: ',u);

writeln('Tong cac so le la: ',f);

writeln('Tong cac so chan la: ',y);

readln;

end.


Các câu hỏi tương tự
Nguyễn Cảnh Hùng
Xem chi tiết
Lê Thùy Dương
Xem chi tiết
Nguyễn Cảnh Hùng
Xem chi tiết
Phan Hồng Anh
Xem chi tiết
Tú Thị Tuấn
Xem chi tiết
Yeu DUong nhat
Xem chi tiết
Huỳnh Tiến Thiên
Xem chi tiết
boymezu
Xem chi tiết
quangduy2107
Xem chi tiết