Tin học Tách số

[Ngụy Ngân Nhi (Chíp)]

[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.

Các bạn giúp mình với. Mình cần gấp !

 

[Trâm Nguyễn Thị Ngọc]

câu 2:
Var
a:array[1..100] of integer;
fi,fo:text;
n,max:integer;
begin
assign(fi,'am.inp');reset(fi);
assign(fo,'am.out');rewrite(fo);
read(fi,n);
for i:=1 to n do read(fi,a);
for i:=1 to n do
if a<0 then max:=a;
for i:=1 to n do
If (a<0) and (a>max) then max:=a;
write(fo,max);
close(fi);close(fo);
end.

 

[TTree]

Câu 1 bạn tự thêm file nhập xuất nha:
uses crt;
var n,i,j,max,x,y:longint;
function uc(x,y:longint):longint;
begin
while x<>y do
if x>y then x:=x-y else y:=y-x;
uc:=x;
end;
begin
clrscr; readln(n);
i:=1; j:=n-1; max:=0;
while i<=j do
begin
if uc(i,j)>max then
begin
max:=uc(i,j); x:=i; y:=j;
end;
inc(i); dec(j);
end;
writeln(n);
writeln(x,' ',y,' ',max);
readln
end.

 

[Ngụy Ngân Nhi (Chíp)]

câu 2:
Var
a:array[1..100] of integer;
fi,fo:text;
n,max:integer;
begin
assign(fi,'am.inp');reset(fi);
assign(fo,'am.out');rewrite(fo);
read(fi,n);
for i:=1 to n do read(fi,a);
for i:=1 to n do
if a<0 then max:=a;
for i:=1 to n do
If (a<0) and (a>max) then max:=a;
write(fo,max);
close(fi);close(fo);
end.

. Bạn ơi, hình như code của bạn bị nhầm lẫn chỗ nào đó. Bạn coi lại phần đỏ giúp mình nhé!

 

[Trâm Nguyễn Thị Ngọc]

. Bạn ơi, hình như code của bạn bị nhầm lẫn chỗ nào đó. Bạn coi lại phần đỏ giúp mình nhé!

MÌNH NHẦM, bn sữa lại là read(fi,a) nha

 

[Trâm Nguyễn Thị Ngọc]

. Bạn ơi, hình như code của bạn bị nhầm lẫn chỗ nào đó. Bạn coi lại phần đỏ giúp mình nhé!

a [ i ] nha bạn, máy nhà mình bị sao á gõ a [ i ] nó ra là a
P/s:Ghi a [ i ] liền lại nha. Tại mình ghi liền nó ra chữ a