const fi='input.txt'

fo='output.txt'

var f1,f2:text;

a:array[1..100,1..100]of integer;

i,n,m,j,max:integer;

begin

assign(f1,fi); reset(f1);

assign(f2,fo); rewrite(f2);

readln(f1,n,m);

for i:=1 to n do 

  begin

     for j:=1 to m do 

read(f1,a[i,j]);

readln(f1);

end;

for i:=1 to n do

  begin

max:=a[i,1];

for j:=1 to n do 

 if max<a[i,j] then max:=a[i,j];

writeln(f2,max);

end;

close(f1);

close(f2);

end.

Program bangCuuChuong9;

uses crt;

var i, n: integer;

begin

clrscr;

n:=9;

for i:=1 to 10 do

begin

writeln('9x',i,'=',n*i);

end;

readln;

end.

program bang_nhan;

uses Crt;

var i,n:Integer

 begin

 clrscr;

n:=7;

for i:=1 to 10 do

 WriteLn(n,'x',i:2,'=',n*i:3);

Readln

 end.

Program cuu_chuong_7;

Var;

      i : interger;

      k : interger;

Begin;

       for i := 1 to 10 do:

             k := 7;

             writeln (k, “x”, i, “=”, k * i);

End;

a) Em hãy cùng các bạn trong nhóm thảo luận và làm một bản mô tả theo mẫu ở bảng 2 vào vở (không được viết trực tiếp vào sách).

b) Lập bảng phân công trong nhóm và kế hoạch thực hiện.

c) Em và các bạn trong nhóm hãy cùng tạo chương trình theo bản mô tả.

giúp với mình cần

1.A

2.A

3.D

4.C

5.B