Bài 1 tiết của bọn em..làm hok đk..huhu

[Snow Fox]

hơ...em biết đâu..in ra trống không à..chẳng thấy j hết...
thế a đã chạy thử chưa/

[HGMinh95]

var a: array[1.. 100, 1..100] of integer;
    max, cs, n, i ,j, S: integer;
begin
     write(' Nhap n = '); readln(n);
     for i:=1 to n do
         for j:=1 to n do
            begin
                 write(' Nhap a[',i,',',j,'] = ');
                 readln(a[i,j]);
            end;
     max:= -maxint;
     for i:= 1 to n do
        begin
             S:= 0;
             for j:=1 to n do S:= S + a[i,j];
             if S > max then
               begin
                    max:=S;
                    cs:=i;
               end;
        end;
     write(cs);
     readln
end.

Đây là code của a

[Snow Fox]

sáng nay cô bọn em chữa bài ùi...đúng là đơn giản thế mà hok biết
câu 1 mình chỉ cần thành lập ra 1 mảng mmc riêng nữa xong ùi lưu vào đó tổng của ác hàng rồi mình tìm hàng có tổng lớn nhất trog mmc đó rồi in ra chỉ số thôy.
lúc đầu em có làm thế nhưng chắc hok đúng nên hok in ra đk sau đó làm theo cách của HGMinh nhưng vẫn hok xong..híc...

[lehang_gb1]

{Tim tu dai nhat trong chuoi}
Var f1,f2:text;
i,d:integer;
S1,S,max:string;
Begin
assign(f1,'dulieu.int');
Reset(f1);
Readln(f1,S);
assign(f2,'dulieu.out');
Rewrite(f2);d:=0;s1:=''; max:='';
S:=S+' ';
For i:=1 to length(S) do
Begin
if S[i]<>' ' then
S1:=S1+S[i] else
Begin
if length(S1)>d then
Begin
max:=S1;
d:=length(S1);
End;
s1:='';
End;
End;
writeln(f2,'tu dai nhat trong xau la',max);
writeln(f2,'co',d,'phan tu');
close(f1);
close(f2);
End.