Question

Answer 1

Câu 3: 

uses crt;

var i,s:integer;

begin

clrscr;

s:=0;

for i:=1 to 20 do 

  s:=s+i;

writeln(s);

readln;

end.

Answer 2

 Câu 4: Uses crt;

Var a:array[1..100] of integer; n,i,dem,tong:integer;

begin

dem:=1; tong:=0;

writeln('Nhap so nguyen can nhap cua mang');readln(n);

For i:=1 to n do begin 

writeln('A[',i,'] la');readln(a[i]);

If a[i] mod 2 =0 then dem:=dem+1;

tong:=tong+a[i]; end;

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

writeln('tong cua day la',tong);

readln

end.

 

 

Answer 3

Cú pháp câu lệnh lặp xác định:

For <biến đếm>:=<giá trị đầu> to <giá trị cuối>;

Cú pháp câu lệnh lặp không xác định:

While <điều kiện> do <câu lệnh>;