Question

BT1. Lập chương trình: nhập từ bàn phím dãy số N số nguyên với N thuộc [0;100]. Tính và in ra màn hình:
a,Tổng các số dương có trong dãy
b,Tổng các số chẵn có trong dãy và số các số chẵn trong dãy
c,Tổng các số chia hết cho 3 và số các số chia hết cho 3.

Answer 1

program baitap;

uses crt;

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

i,j,dem,dem2,n:byte;

S,T,T2:integer;

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]);

end;

cau a)===========================

S:=0

for j:= 1 to n do

if a[i] > 0 then

S:= S+a[i];

writeln('tong cac so duong trong day la: ',S);

cau b)=========================

T:=0;

dem:=0;

for i:= 1 to n do

if a[i] mod 2 = 0 then

begin

T:= T+a[i];

dem:=dem+1;

end;

writeln('Vay tong cac so chan co trong day la: ',T);

writeln('co',dem,'so chan co trong day ');

cau c)================================

T2:=0;

dem2:=0;

for i:= 1 to n do

if a[i] mod 3 = 0 then

begin

T2:= T2+a[i];

dem2:=dem2+1;

end;

writeln('Vay tong cac so chia het cho 3 co trong day la: ',T2);

writeln('co',dem2,'so chia het cho 3 co trong day ');

end.