câu 3

program dem;

uses crt;

var a,i,n:integer;

      s:array[1..1000] of integer;

begin

clrscr;

write('nhap n ');

read(n);

for i:=0 to n do

begin 

write('s[',i,'] =');

read(s[ i ]);

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

end;

write('tong cac phan tu so chan la : ',a);

readln;

end.

Câu 1 : 

- Cú pháp câu lệnh While ... do : While <điều kiện> do <câu lệnh>

- Hoạt động : Lặp với số lần chưa biết trước sẽ chỉ kết thúc khi một điều kiện cho trước được thỏa mãn 

- Cú pháp câu lệnh For ... do :

+ Dạng lặp tiến : For <biến đếm> := <giá trị đầu> to <giá trị cuối> do <câu lệnh>;

+ Dạng lặp lùi : For <biến đếm> := <giá trị cuối> downto <giá trị đầu> do <câu lệnh>;

- Hoạt động của câu lệnh For ... do :

+ Ở dạng lặp tiến, câu lệnh viết sau từ khóa do được thực hiện tuần tự , với biến đếm lần lượt nhận các giá trị liên tiếp tăng từ giá trị đầu đến giá trị cuối

+ Ở dạng lặp lùi : câu lệnh viết sau từ khóa do đucowj thục hiện tuần tự với biến đếm lần lượt nhận các giá trị liên tiếp giảm từ giá trị cuối đến giá trị đầu 

Câu 2 :

program day_so;

uses crt;

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

      i, n, s : integer;

begin

clrscr;

s := 0;

write('nhap so phan tu co trong day :');readln(n);

for i :=1 to n do

begin

write('nhap phan tu thu ', i ,' : ');readln(a[i]);

if a[i] > 0 then s := s + a[i];

end;

writeln('tong cac phan tu la :', s);

readln

end.

Câu  3 :

program day_so;

uses crt;

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

      i, n, s : integer;

begin

clrscr;

s := 0;

write('nhap so phan tu co trong day :');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 s := s + a[i];

end;

writeln;

writeln('tong cac phan tu la :', s);

readln

end.