Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
xansvirus505

Viết CT nhập vào một dãy n số nguyên, in ra số lớn nhất trong dãy

ko mảng nha

pls

Nguyễn Lê Phước Thịnh
21 tháng 2 2023 lúc 15:38

uses crt;

var ln,x,i,n:integer;

begin

clrscr;

ln:=MAXINT;

readln(n);

for i:=1 to n do

begin

readln(x);

if ln<x then ln:=x;

end;

write(ln);

readln;

end.


Các câu hỏi tương tự
Hắc Lang
Xem chi tiết
Minasua Yagami
Xem chi tiết
Tran Trang
Xem chi tiết
Đoàn Phạm Phương Vy
Xem chi tiết
32.Đinh Văn Thoại 8/4
Xem chi tiết
Mai Phương Lê
Xem chi tiết
Hắc Lang
Xem chi tiết
Hiếu Phùng Mạnh
Xem chi tiết
Thwn Dayy
Xem chi tiết