Câu 2: C

Câu 3: A

Câu 4: B

Tự luận

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.

B. Trắc nghiệm:

Câu 2: C.

A. Giữa chỉ số đầu và cuối phải là ..

B. Chỉ số cuối không được là số thực.

D. Chỉ số đầu, cuối không được là số thực.

Câu 3: A. Theo lý thuyết.

Câu 4. B

Đây là bài toán tính tổng 5 chữ số 2 rồi cộng thêm 5.

B. Tự luận:

Câu 1: 

a) 5*3 - 2*2 +1

b,c) Đề thiếu.

Câu 2:

a) For i:= 1 to 10; do x:=x+1.

→ For i:= 1 to 10 do x:=x+1.

b) var X: Array [50... 100] of integer;

→ var X: Array [50..100] of integer;

Câu 3:

a) Lần 1: 0<6

n = 0+1=1

x = 0+1=1

Lần 2: 1<6

n = 1+1=2

x = 1+2=3

Lần 3: 3<6

n = 2+1=3

x = 3+3=6

Lần 4: 6=6

n = 3+1=4

x = 6+4=10

10>6 nên kết thúc.

b) Sau khi thữ hiện thì n=4; x=0;

Câu 4:

uses crt;
var n,i,s:longint; a:array[1..10000000]of longint;
begin
clrscr;
   write('Nhap so hoc sinh: ');readln(n);
   for i:=1 to n do 
      begin
         write('Nhap diem mon tin cua ban thu ',i,': ');readln(a[i]);
         s:=s+a[i];
      end;
   writeln('Trung binh cong: ',s/n:0:2);
readln
end.