Phát giấy thi

Trong kỳ thi tốt nghiệp THCS, mỗi phòng thi đều có 24 thí sinh được xếp vào 6 dãy bàn, mỗi dãy có 4 thí sinh. Có 24 tờ giấy nháp với ba loại màu Xanh, Đỏ, Tím sẽ được phát cho 24 thí sinh trong phòng thi.

Hãy viết chương trình giúp cho Giám thị phát giấy nháp sao cho mỗi thí sinh sử dụng một màu giấy nháp không trùng với màu của các bạn ngồi ở vị trí trước, sau, trái, phải đối với thí sinh đó.

1) Yêu cầu: in ra màn hình tất cả sơ đồ phát giấy nháp có thể được.

2) Tổng số giấy nháp mỗi loại được sử dụng.
Admin giup voi, dang can gap' hi hi

bài 1 - cấp trường 3
uses crt;
var a:array[1..100]of integer;
n,i,j,tam,x,dem,e:integer;
begin clrscr;
write('nhap day so nguyen:');readln(n);
for i:=1 to n do
begin
write('nhap a[',i,']:');readln(a[i]);
end;
for i:=1 to n do
for j:=1 to n do
if a[i]<a[j] then begin
tam:=a[i];
a[i]:=a[j];
a[j]:=tam;
end;
writeln('sau khi sx:');
for i:= 1 to n do
writeln(a[i]:5);
write('nhap phan tu x:');readln(x);
for i:=1 to n do
if x=a[i] then
begin
dem:=dem+1;
end;
write('so lan xuat hien:',dem);
writeln;
writeln('so pt<=',x,':');
for i:= 1to n do
if a[i]<=x then write(a[i]:5);
writeln;
writeln('so pt>',x,':');
for i:=1 to n do
if a[i]>x then write(a[i]:5);
readln;
end.