Viết chương trình nhập N số nguyên từ bàn phím: a, in ra màn hình các số chẵn, số lẻ b, tính và in ra màn hình tổng các số âm, tổng các số dương c, đếm các số không có trong dãy số đó

dangphuongtruongnguyen

2 năm trước

Loga Sinh Học lớp 12

0 lượt thích 47 xem

1 trả lời

Thích Trả lời

phamthuy241185

uses crt;

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

i,n,ta,td,d: longint;

begin

clrscr;

write ('nhap so phan tu cua mang: '); readln (n);

write('NHAP GIA TRI TUNG PHAN TU CUA MANG');

ta:=0; td:=0; d:=0;

for i:=1 to n do

begin

write ('nhap a[',i,']: '); readln (a[i]);

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

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

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

end;

write ('Cac so chan la: ');

for i:=1 to n do if a[i] mod 2=0 then write(i,' ');

write ('Cac so le la: ');

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

writeln ('Tong cac so am: ',ta);

writeln ('Tong cac so duong: ',td);

writeln ('Co ',d,' so 0 trong day so');

readln;

end.

Vote (0) Phản hồi (0) 2 năm trước

p4r4djs33

uses crt;

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

i,n,ta,td,d: longint;

begin

clrscr;

write ('nhap so phan tu cua mang: '); readln (n);

for i:=1 to n do

begin

write ('nhap a[',i,']: '); readln (a[i]);

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

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

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

end;

write ('cac so chan la: ');

for i:=1 to n do if a[i] mod 2=0 then write(i,' ');

write ('cac so le la: ');

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

writeln ('tong cac so am: ',ta);

writeln ('tong cac so duong: ',td);

writeln ('co ',d,' so 0 trong day so');

readln;

end.

😏😏😏😎😎😎

học tốt

Vote (0) Phản hồi (0) 2 năm trước

Các câu hỏi liên quan

Nghị luận xã hội về câu nói hành trang cho thế hệ trẻ khi bước vào thời kì hội nhập Thank mn mình seach mạng mà k có ý gì cả.

Dùng từ đã cho viết thành câu hoàn chỉnh: 1. could/ me/ nearest way/ river? 2. I / never see/ taller person/ him. 3. you/ better/ not talk/ him. 4. living in the city/ noisy/ but/ interesting/ living in the countryside. Help me please!!

giúp mk vs mn ơi mk gấp lắm lun :((

Giải hộ mik cái. Nhanh chút nhe

xác định cảm ứng từ tổng hợp do hai dòng điện này gây ra tại điểm M cách đều hai dây dẫn một khoảng 10 cm

2, Rút gọn rồi tính giá trị các biểu thức: $\frac{16x^2-40xy}{8x^2-24xy}$ với $\frac{x}{y}$ =$\frac{10}{3}$

A. be B, is 7. Is Miss Hong's face round B. with 8. Is your mother's hair long or B. short C. are oval? D. has A. or C. and D. but D. black C. thin color is your hair?-It's black. A. full 9. A. How B. Which C. What D. Where 10. He is tall but his brother is B. short A. tall C. weak D. strong 11. Tan has a big nose, but his sister has a A. big 12. Are her eyes round or A, small 13. Old people often have A. black one. B. small C. full D. thin C. short hair. C. brown : B. black D. oval B. yellow. D. gray 98

a) (x-35) - 120 = 0 b) 310 - (118-x) = 217 c) 156 - (x+61) = 82 d) 814 - (x-305) = 712 e) 2x - 138 = 2 ³ . 3 ² f) 20 - [7.(x-3) + 4] =2 g) [( 6x - 39) : 3] . 28 = 5628 h) 4x ³ + 12 = 120* h) 4. (x-1) + [( 4750 - 2160) - (1750 - 1160)] = 3000 xin lỗi mn , em còn nhiêu đó điểm thôi ạ !!!

Mn ơi giúp mìn bài này với thanhks you moaaaa Câu hỏi: A= 36-10+6. B=36-(6+4) C=15+6:3 D=4.32-5.6

Giải giúp e word forms với ạ please sẽ vote ctlhn ngay khi có câu trl :((

Loga.vn - Cộng Đồng Luyện Thi Trực Tuyến