[Tin] Pascan và vấn đề thi HSG Tin học

[voimonster]

Bài 2 kiểm tra học kì :
Không biết có đúng ko ?

Program Baitap2;
Uses Crt;
Var
Demchan,demle,demam,demduong,dem3:integer;
I,j,t,n:integer;
Mang:array [1..1000] of integer;
Begin
Clrscr;
Writeln(‘Nhap so nguyen N :’);
Readln(n);
For i:=1 to n do then
Begin
Writeln(‘Nhap so thu ‘,i,’ ‘);
Readln(mang[i]);
End;

Demam:=0;
For i:=1 to n do then
If (mang[i]<0) then demam:=demam+1;
Demduong:=n-demam;

Demchan:=0;
For i:=1 to n do then
If (mang[i] mod 2 =0) then demchan:=demchan+1;
Demle:=n-demchan;

Dem3:=0;
For i:=1 to n do
If (man[i]) mod 3 =0) then dem3:=dem3+1;

For j:=n downto 2 do
For i:=1 to j-1 do
If (mang[i]<mang[i+1] then
Begin
T:=mang[i];
Mang[i]:=mang[i+1];
Mang[i+1]:=t;
End;
Writeln(‘So cac phan tu chan la :’,demchan);
Writeln(‘So cac phan tu le la :’,demle);
Writeln(‘So cac phan tu duong la :’,demduong);
Writeln(‘So cac phan tu am la :’,demam);
Writeln(‘So cac phan tu chia het cho 3 la :’,dem3);
Writeln;
Writeln(‘Day so duoc sap xep la:’);
For i:=1 to n do write(mang[i]);
Readln;
End.