Giải Vô Địch Quốc Gia:
Có n đội bóng đá vòng tròn 1 lượt.
Mỗi đội lần lượt đá với tất cả các đội còn lại.
Thắng: 3 điểm; Hòa: 1 điểm; Thua:0 điểm.
Yêu cầu:
+Tổ chức dữ liệu => In ra bảng điểm.
+Tìm đội vô địch.
+Tìm đội ít điểm nhất.
Nếu đồng điểm thì xét tổng bàn thăng/thua.
uses crt;
var n,i,max,min:longint; a:array[1..1000000]of longint;
begin
clrscr;
write(‘So doi bong: ‘);readln(n);
max:=1; min:=1;
for i:=1 to n do
begin
write(‘Diem cua doi bong ‘,i,’: ‘);readln(a[i]);
if a[i]>a[max] then max:=i;
if a[i]<a[min] then min:=i;
end;
for i:=1 to n do writeln(‘Diem cua doi ‘,i,’: ‘,a[i]);
writeln(‘Doi vo dich: ‘,max);
writeln(‘Doi co it diem nhat: ‘,min);
readln
end.
Program bangdiembongdabynhan;
Uses crt;
Var A,B:Real;
Th,H,T:Integer;
Begin
Clrscr;
Write(‘So diem doi bong A la:’);Readln(‘A’);
Write(‘So diem doi bong B la:’);Readln(‘B’);
If A>=3 then writeln(‘Doi bong A vo dich’)
Else writeln(‘Doi bong A thua’);
If B>=3 then writeln(‘Doi bong B vo dich’)
Else writeln(‘Doi bong B thua’);
Readln();
End.