Phần thưởng: Nhà trường một thưởng một phần thưởng nho tất cả học sinh tham gia kì thi hsg cấp tỉnh. Biết rằng phần thưởng này là số tiền. Mỗi học sinh được gán 1 số, số tiền này có số mà mỗi số đều chia hết và nó lớn nhất. Viết bằng pascal nha.
1 câu trả lời
program tien_thuong;
uses crt;
var A:array[1..1000] of integer;
n,i,q:integer;
{---Ham-UCLN---}
function ucln(x,y:integer):integer;
begin
while x<>y do
if x>y then x:=x-y else y:=y-x;
ucln:=x;
end;
{---Chuong-trinh-chinh---}
BEGIN
clrscr;
write('Nhap so luong hoc sinh: '); readln(n);
for i:=1 to n do
begin
write('Nhap so cua hoc sinh thu ',i,': '); readln(A[i]);
end;
q:=A[1];
for i:=2 to n do
q:=ucln(q,A[i]);
write('So tien thuong la: ',q);
readln;
end.
