Cho mình câu trả lời hay nhất nhe

________

Câu 1

Program NhapPhanSo

var mau: array[1..1000] of integer;

      tu: array[1..10000] of integer;

t,m,i, s, k1, k2, n :real;

BEGIN

Clrscr;

Write('Nhap N:'); Readln(N);

For i:= 1 to N do

begin

Write('Nhap mau  ',i ,' :');Readln(mau[i]);

Write('Nhap tu',i,' :'); Readln(tu[i]);

end; 

s:=0;

For i:= 1 to N do s:=s+(mau[i]/tu[i]);

t:=1;

i:=1;

While i <= 1000 do 

Begin

 m:= s * t;

if frac(m) = 0 then break;

t:=t*10; 

i:=i+1;

End;

i:=2;

if m > t then

begin

k1:=m;

k2:=t;

end;

if t > m then

begin

k1:= t;

k2:=m;

end;

While i <= k1 -1

begin

if i > k2 then break;

if (m mod i = 0) and (t mod i = 0) then 

       begin

                m:= m / i;

                t:= t / i;

       end;

end;

Writeln('Tong cac phan so o dang toi gian la ',m:1:0, '/',t:1:0);

Readln;

END.

Cau 2:

Program XoaPhanTu;

Uses crt;

Var i,n,k: Integer;

a: Array[1..100] of Integer;

BEGIN

clrscr;

Write('Nhap so phan tu N:');Readln(N);

For i:=1 to N do

Begin

Write('-Phan tu A[ ',i,' ]= ');Readln(A[i]);

End;

Write('Vi tri k can xoa: '); Readln(k);

For i:= k to n - 1 Do a[i]:=a[i+1];

n:=n - 1;

For i:=1 to n Do Write(a[i]);

Readln;

END.

Cau 3: 

Program timtich;

Uses crt;

var i,k,j,n: integer;

a:array[1..1000] of integer;

m:array[0..5] of integer;

BEGIN

clrscr;

Write('Nhap so phan tu N: '); Readln(n);

For i:=1 to N do

Begin

Write('-Phan tu a[ ',i,' ]= ');Readln(a[i]);

End;

m[0]:=0;

For i := 1 to 3 do

Begin

for j:= 1 to n do

begin

if (a[j] < a[j+1])  then m[i] : = a [j+1];

if a[j] > a[j +1] then min:= a[j+1]

end;

for k:=1 to n do if m[i] = a [k] then a[k]:= min

End;

Writeln('3 so co tich lon nhat la ',m[1],';',m[2],';',m[3]);

END. 

------------------------------------------------------------------------

Ai ma ac qua cho cai bai 1 minh l;am chong mat luon nen neu co cho nao sai thi thong cam nha ^^!

uses crt;
var i,j,z,n,k,x,x1,x2,s1,s2:longint; a,b:array[0..10000000]of longint;
begin
clrscr;
   write('Nhap so n: ');readln(n);
   for i:=1 to n do 
      begin
         write('Nhap phan so thu ',i,': ');read(a[i],b[i]);
         inc(s1,a[i]);
         inc(s2,b[i]);
      end;
   i:=s1;
   while (s1 mod i<>0)or(s2 mod i<>0) do dec(i);
   writeln('1) Tong: ',s1 div i,'/',s2 div i);
   write('2) Nhap k: ');readln(k);
   for i:=k to n-1 do begin b[i]:=b[i+1]; a[i]:=a[i+1]; end; dec(n);
   for i:=1 to n do writeln(a[i],'/',b[i]); writeln;
   x:=1; x1:=2; x2:=3;
   for i:=1 to n-2 do 
      for j:=i+1 to n-1 do 
         for z:=j+1 to n do
            if (a[i]*a[j]*a[z])/(b[i]*b[j]*b[z])
               >(a[x]*a[x1]*a[x2])/(b[x]*b[x1]*b[x2]) then 
               begin x:=i; x1:=j; x2:=z; end;
   if n>=3 then
      begin
         writeln('3) 3 so co tich lon nhat:');
         writeln(a[i],'/',b[i]);
         writeln(a[j],'/',b[j]);
         writeln(a[z],'/',b[z]);
      end else writeln('3) Khong co');
readln
end.