Question

các bn giúp mik tin với 

   NHẬP VÀO DÃY SỐ GỒM n PHẦN TỬ, n NHẬP TỪ BÀN PHÍM

a)   tính tổng các số am trong dãy 

b)   tính tổng các số chia hết cho 2 trong dãy

c)   tính tổng các số dương và chia hết cho 3 trong dãy

HD:   dựa vào chương trình bài 2 

b)    nêu điều kiện để 1 số chia hết cho 2

c)    khi có 2 điều kiện em cần dùng thêm hàm nào?

MONG CÁC BN TRẢ LỜI SỚM GIÚP MIK

Answer 1

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;

t1:=0;

for i:=1 to n do 

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

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

t2:=0;

for i:=1 to n do 

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

writeln('Tong cac so chia het cho 2 la: ',t2);

t3:=0;

for i:=1 to n do 

  if (a[i]>0) and (a[i] mod 3=0) then t3:=t3+a[i];

writeln('Tong cac so duong chia het cho 3 la: ',t3);

readln;

end.