[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!
ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.
Mình chỉ nói thuật toán thôi vì dài nhưng không khó
Bạn có thể viết code lun dc không? Mình mới vào pascal nên củng còn yếu! Mong các bạn hỗ trợ
Vừa vào pascal mà giải đễ rồi
, h bạn cần gấp không vậy, muộn rồi, để sáng mai mình làm đc ko bạn, sáng mai mình đi học thêm nên chắc trưa nếu rãnh mình sẽ làm
var i,n,t,max,max1,x,vt:longint;f,g:text; l:real;
a:array[1..100000000] of longint;
begin
assign(f,'banthangdep.inp');reset(f);
assign(g,'banthangdep.out');rewrite(g);
readln(f,n); max:=0;max1:=0;t:=0;
for i:=1 to n do
begin
read(f,a[i]);
t:= t+a[i];
if max<a[i] then max:=i;
end;
readln(f);
for i:=1 to n do
begin
read(f,x);
a[i]:=a[i]+x; t:=t+x;
if max1<a[i] then begin max1:=a[i];vt:=i;end;
end;
l:=max1/t *100;
writeln(g,vt);
writeln(g,max1,' ',l:0:1);
if vt=max then write(g,1) else write(g,0);
close(f);
close(g);
end.Bai 1:
Var
Begin
assign(fi,'muaqua.inp');reset(fi);
assign(fo,'muaqua.out');rewrite(fo);
readln(fi,n);m:=n;
For i:=1 to n do read(fi,a[i]);
For i:=1 to n do b[i]:=a[i];
For i:=1 to m-1 do
For j:=i+1 to m do
if a[i]=a[j] then
begin
For k:=i to m-1 do
a[k]:=a[k+1];
m:=m-1;
end;
For i:=1 to m-1 do
For j:=i+1 to m do
if a[i]<a[j] then
begin
tg:=a[i];a[i]:=a[j];a[j]:=tg;
end;
x:=a[3];t:=0;k:=0;d:=d+1;
For i:=1 to n do
if x=a[3] then
begin
t:=t+a[i];k:=k+1;vt[k]:=i;d:=d+1;
end;
writeln(fo,d);
For i:=1 to k do write(vt[i],' ');
write(fo,t);
Close(Fi);close(fo);
end.Sao báo lỗi: path not found vậy bạn?
Bài 1 hở bạn? Ầu, mình viết bài đó xong rồi up ảnh lên, sau đó mình xóa và viết code của bài 2 lên đó luôn nên h chỉ có lưu bài 2 chứ bài 1 thì mất rồi, bn thông cảm
Gần mà bạn, đọc được mà nhỉ