câu 1 viết chương trình sử dụng biến mảng để nhập 1 số nguyên ,số phần tử được nhập từ bàn phím in ra màn hình tổng các phần tử chẵn trong dãy
câu 2 sử dụng ngôn ngữ lập trình pascal để viết phương trình theo thuật toán
b1 T <- 6 ,n<-1
b2 T>hoặc = 100 -> b4
b3 n<-n+2 ,T=T*n -> b4
b4 in ra màn hình
1/
uses crt;
var A:array[1..1000] of integer;
i,n,tong:integer;
begin
clrscr;
write(‘Nhap n: ‘); readln(n);
for i:=1 to n do
begin
write(‘Nhap phan tu thu ‘,i,’: ‘);
readln(A[i]);
if A[i] mod 2 = 0 then tong:=tong+A[i];
end;
writeln;
write(‘Tong cac so chan la: ‘,tong);
readln
end.
2/
uses crt;
var T,n:integer;
begin
clrscr;
T:=6; n:=1;
while T<100 do
begin
n:=n+2;
T:=T*n;
end;
write(‘T=’,T);
readln
end.