Câu 8: B

Câu 9: B

Câu 10: 28-3+1=26(vòng)

Tự luận:

Câu 11:

Cú pháp:

While < Điều kiện > do < Câu lệnh >;

Trong đó:

While, do: là các từ khóa

Điều kiện: thường là một phép so sánh

Câu lệnh: có thể là câu lệnh đơn giản hay câu lệnh ghép

Hoạt động:

Bước 1. Kiểm tra điều kiện

Bước 2. Nếu điều kiện sai, câu lệnh sẽ bị bỏ qua và việc thực hiện câu lệnh lặp kết thúc. Nếu điều kiện đúng, thực hiện câu lệnh và quay lại Bước 1

Câu 12:

a) For i:=1 to 50 do writeln (' * ');

b) var a: array[1..20] of interger;

Câu 13:

program cau_13;

uses crt;

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

i,min:integer;

begin

clrscr;

for i:=1 to 10 do

  begin

write('A[',i,']='); readln(a[i]);

end;

min:=a[1];

for i:=1 to n do

  if min>a[i] then min:=a[i];

writeln(min);

readln;

end.

Câu 8: A, chạy từ 1=>5 in ra a[1]; a[2]; a[3]; a[4]; a[5]

Câu 9: B

Câu 10: 28-3+1=26 vòng lặp.

Câu 11:

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

Hoạt động:

+ Đầu tiên điều kiện phải đúng, lặp cho đến khi điều kiện đó sai.

+ Nếu đầu tiên điều kiện sai thì không thực hiện.

Câu 12:

a. for i:=1 to 50 do write('*');

b. A:array[1..20]of integer;

Câu 13:

uses crt;
var i,min:longint;a:array[1..10]of longint;
begin
        clrscr;
        for i:=1 to 10 do
                begin
                        write('Nhap phan tu thu ',i,': ');readln(a[i]);
                end;
        min:=a[1];
        for i:=2 to 10 do if a[i]<min then min:=a[i];
        write('Gia tri nho nhat: ',min);
        readln;
end.