uses crt;

var st:array[1..100]of string;

a,b,c:array[1..100]of real;

i,n:integer;

max:real;

begin

clrscr;

readln(n);

for i:=1 to n do readln(st[i],a[i],b[i],c[i]);

max=(a[1]+b[1]+c[1])/3;

for i:=1 to n do 

if (max<(a[i]+b[i]+c[i])/3) then max:=(a[i]+b[i]+c[i])/3;

writeln(max:4:2);

readln;

end.

CÂU TL LÀ 

v

:v?

Câu 17: C

Câu 18: A

Câu 19: C

Câu 2: A

Câu 4: C

Câu 6: C

Program HOC24;

var t: longint;

n,i: integer;

begin

write('Nhap n= '); readln(n);

t:=1;

for i:=1 to n do t:=t*i;

write(n,'! =',t);

readln

end.

Dòng 3: Sai -> Sửa: var Y: longint; (cái này nếu sửa đúng là var Y: integer; nhưng nếu dùng như vậy biến Y sẽ bị tràn sẽ lớn hơn giá trị tối đa của integer gây ra lỗi cho chương trình khi chạy)

Dòng 4: Sai -> sửa: x: integer;

Dòng 6: Đúng -> Bổ sung: x:=100; (theo mình quan sát được nó nằm ở phần khai báo)

Dòng 10: Đúng -> Sửa: x:=x+10; (cái này có thể sửa hoặc không vì như thế nó cũng không sai)

Dòng 11: Sai -> Sửa: end;

Các dòng còn lại đều đúng và không có vấn đề để sửa.

Bài chính xác như vầy, em tự sửa lại trên giấy nhé!

Program baiso2;

Uses crt;

Var x,y:integer;

Begin

x:=100;

y:=0;

While x<1000 do

Begin

y:=y+x;

x:=x+10;

End;

Readln;

End.

Program HOC24;

var i,n: integer;

t: longint;

a: array[1..1000] of integer;

begin

write('Nhap n: '); readln(n);

for i:=1 to n do

begin

write('Nhap so thu ',i,': '); readln(a[i]);

end;

t:=0;

for i:=1 to n do t:=t+a[i];

write('Tong la; ',t);

readln

end.

4:

uses crt;

var x,y,k:integer;

begin

clrscr;

readln(x,y,k);

writeln(5*x*y*k-y*(1+x)*(1+x));

readln;

end.