Câu 1: (đề chưa đầy đủ)
Câu 2:
a. For i:=1 to 10 do x:=x+1;
b. var X: Array [50..100] of integer;
Câu 3:
a)
0<6 : n=0+1=1;
x=0+1=1;
1<6 : n=1+1=2;
x=1+2=3;
3<6 : n=2+1=3;
x=3+3=6;
6=6 : n=3+1=4;
x=6+4=10;
b) x=10;
n=4;
Câu 4:
program cau_4;
uses crt;
var A:array [1..50] of real;
n,i: integer;
TB: real;
Begin
clrscr;
write('Nhap so hoc sinh: '); readln(n);
for i:=1 to n do
begin
write('Diem tin ban thu ',i,': '); readln(A[i]);
TB:=TB+A[i];
end;
TB:=TB/n;
write('Trung binh diem tin cua cac ban = ',TB:2:1);
readln
End.