Tìm và sửa các lỗi có trong chương trình pascal sau và sửa lại cho đúng :
Program Tinh_tien
Var soluong:=integer;
Dongia, thanhtien = real;
Const phi : 10000;
Begin
Writeln (‘Don gia:’);
readln (‘Dongia’);
Writeln (‘So luong : ‘ );
readln (soluong);
thanhtien = soluong*Dongia + phi;
Writeln (‘So tien khach hang phai tra la:’,thanhtien);
End;
Do mình dùng ipad nên ko xuống hàng đượcc bạn thông cảmm
uses crt;
var a:array[1..20]of integer;
i,max:integer;
begin
clrscr;
for i:=1 to 20 do
begin
write(‘a[‘,i,’]=’); readln(a[i]);
end;
max:=a[1];
for i:=2 to 20 do
if max<a[i] then max:=a[i];
write(max);
readln;
end.