Lập trình đơn giản

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

Viết chương trình nhập từ bàn phím các phần tử của mảng có độ dài là n (n được nhập từ bàn phím). Sau đó in ra phần tử có giá trị lớn nhất.

nguyễn an phát
23 tháng 5 2022 lúc 17:52

program max;

uses crt;

var i,n,max:integer;

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

begin

clrscr;

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

for i:=1 to n do

begin

write('a[',i,']=');readln(a[i]);

if a[i]>max then max:=a[i];

end;

writeln('gia tri lon nhat trong day tren la: ',max);

readln;

end.

Kiều Vũ Linh
23 tháng 5 2022 lúc 18:28

var i,n,max:integer;

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

begin

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

for i:=1 to n do

begin

write('a[',i,']=');readln(a[i]);

end;

max:=a[1];

For i:=2 to n do

If a[i] > max then max:=a[i];

writeln('gia tri lon nhat trong day tren la: ',max);

readln;

end.

Bảo Nam
25 tháng 5 2022 lúc 15:56

var i,n,max: integer;

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

begin

readln(n);

for i:=1 to n do readln(a[i]);

max:=a[1];

for i:=2 to n do if max<a[i] then max:=a[i];

write(max);

readln

end.


Các câu hỏi tương tự
Nguyễn Linh
Xem chi tiết
Yeu DUong nhat
Xem chi tiết
duyy
Xem chi tiết
Nhân lê
Xem chi tiết
Tích Nguyệt
Xem chi tiết
Khang Đinh Hoàng
Xem chi tiết
Phạm Thị Kim Anh
Xem chi tiết
Lê Xuân Hoa
Xem chi tiết
Nguyễn Trần Thiên Bảo
Xem chi tiết