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
Nguyễn Hoàng Duy

1.VCT nhập vào 1 dãy số. Tính tổng các số chẵn , tổng các số lẽ.

2.VCT nhập vào 1 dãy số. Đếm và in ra các số >0,<0.

Nhanh giúp mình với mai mình thi rồi .

Minh Lệ
21 tháng 6 2021 lúc 21:40

1.

Program HOC24;

var a: array[1..32000] of longint;

i,n: integer;

tc,tl: longint;

begin

write('Nhap N: '); readln(n);

tc:=0; tl:=0;

for i:=1 to n do 

begin

write('a[',i,']='); readln(a[i]);

if a[i] mod 2=0 then tc:=tc+a[i];

if a[i] mod 2=1 then tl:=tl+a[i];

end;

writeln('Tong chan la: ',tc);

write('Tong le la: ',tl);

readln

end.

Minh Lệ
22 tháng 6 2021 lúc 10:48

2.

Program HOC24;

var a: array[1..32000] of longint;

d1,d2,i,n: integer;

begin

write('Nhap N: '); readln(n);

d1:=0; d2:=0;

for i:=1 to n do 

begin

write('a[',i,']='); readln(a[i]);

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

if a[i] <0 then d2:=d2+1;

end;

writeln('Co ',d1,' so lon hon 0');

write('Co ',d2,' so be hon 0');

readln

end.


Các câu hỏi tương tự
Nguyễn Mỹ
Xem chi tiết
Vinh Thái
Xem chi tiết
Cá Viên Chiên
Xem chi tiết
Hoà Trần
Xem chi tiết
Hồ Thị Ngọc Vy
Xem chi tiết
Hồ Thị Ngọc Vy
Xem chi tiết
Hiền Nguyễn
Xem chi tiết
Nguyễn anh
Xem chi tiết
Uchiha Obito
Xem chi tiết