Question

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

Answer 1

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.