1)Nhập vào 1 mảng gồm n phần số. Tính tổng các phân số đó ở dạng tối giản.
2)xóa phần tử k trong mảng.
3)tìm 3 số có tích lớn nhất trong 1 mảng.
GIÚP MÌNH VỚI!
1)Nhập vào 1 mảng gồm n phần số. Tính tổng các phân số đó ở dạng tối giản.
2)xóa phần tử k trong mảng.
3)tìm 3 số có tích lớn nhất trong 1 mảng.
GIÚP MÌNH VỚI!
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.
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 ^^!