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

Câu 1:

uses crt;

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

i, n, s : integer;

begin

clrscr;

write('Nhap so phan tu : '); readln(n);

write('Nhap ', n ,' phan tu : ');

s := 0; for i := 1 to n do begin

read(a[i]); if a[i] mod 2 = 0 then s := s + a[i];

end; write('Tong = ', s);

readln

end.

Câu 2:

uses crt;

var T, i, 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.

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.