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
Bạn đang xem 1, - Đề thi học kì 2 môn Tin học lớp 8 năm 2019-2020 có đáp án - Trường THCS Tiên Thủy