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.
