CÂU 1 2 3 4 5 6 7 8 9 10 11 J K KẾT QUẢ C D B B C A...

1,0

A:aray[1..20]of integer;

3 Program tim_Min;

Uses Crt;

0,5

Var A:array[1..10]of integer;

i,min:integer;

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 min>A[i] Then min:=A[i];

Writeln('Phan tu nho nhat cua mang: ',min);

Readln

End.

GV trừ -0.25 cho mỗi lỗi nhỏ, Hs viết đúng chương trình theo

cách khác vẫn cho điểm tối đa