Tin học pascal

[Lucasta]

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

viết chương trình nhập n số nguyên bất kì, tìm số lớn nhất trong các số đó. In kết quả ra màn hình.(k dùng mảng)
p/s: giúp e với ạ

 

[02-07-2019.]

viết chương trình nhập n số nguyên bất kì, tìm số lớn nhất trong các số đó. In kết quả ra màn hình.(k dùng mảng)
p/s: giúp e với ạ

var i:longint;
n,x,y,max:integer;
Begin
           Write('Day co so so hang la: ');
Read(n);Readln;
Write ('Doc so thu nhat: ');Read(x);
Readln;
max:=x;
Write('Cac so tiep theo lan luot la: ');
For  i :=2 to n do
 Begin
    Read(y);
If max<y then max:=y;
End;
Write('So can tim: ',max);
End.

Sau khi nó chạy xong chị ấn ALT+f5 để xem kết quả nhé!
Có gì không hiểu chị hỏi lại nhé!

 

[Lucasta]

var i:longint;
n,x,y,max:integer;
Begin
           Write('Day co so so hang la: ');
Read(n);Readln;
Write ('Doc so thu nhat: ');Read(x);
Readln;
max:=x;
Write('Cac so tiep theo lan luot la: ');
For  i :=2 to n do
 Begin
    Read(y);
If max<y then max:=y;
End;
Write('So can tim: ',max);
End.

Sau khi nó chạy xong chị ấn ALT+f5 để xem kết quả nhé!
Có gì không hiểu chị hỏi lại nhé!

s dùng readln nhiều v

 

[02-07-2019.]

s dùng readln nhiều v

Tại em không quen dùng kiểu không tạo File input,output nên em sợ lỗi!
Mà nếu chị xóa đi không bị lỗi thì chị cứ sửa hộ em nhé!