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

huhu ae chỉ mn với chỉ hết 1234 nha mai mn thi rồi huhu

tin 8 Viết chương trình nhập n số nguyên từ bàn phím  in dãy số vừa nhập ra màn hình

1 in dãy số vừa nhập ra màn hình

2 tính tổng của các số dương trong dãy

3 tính tổng của các số lẻ

4 tính tổng của các số chẵn

Nguyễn Lê Phước Thịnh
17 tháng 5 2021 lúc 9:45

Bạn Akai làm thiếu rồi, mình xin bổ sung một chút cho nó hoàn thiện bài nhé:

uses crt;

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

i,n,t1,t2,t3:integer;

begin

clrscr;

write('Nhap n='); readln(n);

for i:=1 to n do 

 begin

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

end;

for i:=1 to n do 

  write(a[i]:4);

writeln;

t1:=0;

t2:=0;

t3:=0;

for i:=1 to n do 

  begin

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

if a[i] mod 2<>0 then t2:=t2+a[i];

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

end;

writeln('Tong cac so duong la: ',t1);

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

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

readln;

end.


Các câu hỏi tương tự
Yeu DUong nhat
Xem chi tiết
minh đức
Xem chi tiết
Huỳnh Tiến Thiên
Xem chi tiết
Trúc Linh
Xem chi tiết
foxbi
Xem chi tiết
Nguyễn Cảnh Hùng
Xem chi tiết
Lê Thùy Dương
Xem chi tiết
Trần Hà Thư
Xem chi tiết
hà phương
Xem chi tiết