ĐỀ KIỂM TRA 1 TIẾT PASCAL

KIEM TRA 1 TIET
Môn: Tin học

Bài tập 1: Nhập dãy số có n số nguyên. Đếm các số chẵn và tính tổng các số chẵn
Giải
Program bai_1;
Uses crt;
Var A:array[1..20]of integer;
N, i,s,T : integer;
Begin
Write(‘nhap so phan tu cua mang N=’); Readln(N);
T:=0;
S:=0;
For i:=1 to N do
Begin
Write(‘nhap phan tu thu’,i,’=’); Readln(A[i]);
End;
For i:=1 to N do
If A[i] mod 2 =0 then
Begin
S:=s+1;
T:=t+A[i];
End;
Writeln(‘so cac so chan la’,s:4);
Writeln(‘tong cac so chan la’,t:4);
Readln;
End.

Bài tập 2: Nhập dãy số có N số nguyên. Tìm giá trị max, min
Giải
Program bai_2;
Uses crt;
Var A:array[1..20];
max,min, N , i: integer;
Begin
Writeln(‘Nhap so phan tu cua day N=’); Readln(N);
For i:= 1 to N do
Begin
Write(‘Phan tu thu ‘,i,’ la’); Readln(A[i]);
End;
Max:=A[1];
For i:= 2 to N do
If A[i]>max then max:=A[i];
Min:=A[1];
For i:=2 to N do
If A[i]Writeln(‘so lon nhat trong day la’,max);
Writeln(‘so be nhat trong day la’,min);
Readln;
End.

Bài tập 3: Nhập dãy số có N số nguyên. Sắp xếp theo giá trị tăng dần
Giải
Program sap_xep;
Uses crt;
Var A:array[1..20] of integer;
I,j,t,n: integer;
Begin
Write(‘nhap so phan tu cua day N= ‘); Readln(N);
For i:= 1 to N do
Begin
Write(‘nhap phan tu thu’,i,’=’); Readln(A[i]);
End;
For j:=N downto 2 do
For i:= 1 to j-1 do
If A[i]>A[i+1] then
Begin
T:=A[i];
A[i]:=A[i+1];
A[i+1]:=t;
End;
Writeln(‘day so duoc sap xep la’);
For i:= 1 to N do write(A[i]:4);
Readln;
End.
Nếu sắp xếp theo giá trị giảm dần thì thay câu lệnh A[i]>A[i+1] bằng A[i]