Hắc Lang

Sử dụng biến mảng để viết chương trình nhập vào một dãy sô gồm N số nguyên tử bàn phím in ra màn hình giá trị lớn nhất của dãy số đó.

Nguyễn Lê Phước Thịnh
7 tháng 5 2021 lúc 22:02

uses crt;

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

i,n,max:integer;

begin

clrscr;

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

for i:=1 to n do 

  begin

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

end;

max:=a[1];

for i:=1 to n do 

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

writeln(max);

readln;

end.

Bình luận (1)

Các câu hỏi tương tự
Hiếu Phùng Mạnh
Xem chi tiết
Hắc Lang
Xem chi tiết
Nguyễn Cảnh Hùng
Xem chi tiết
Nguyễn Cảnh Hùng
Xem chi tiết
Phan Hồng Anh
Xem chi tiết
Lê Thùy Dương
Xem chi tiết
Nguyễn Cảnh Hùng
Xem chi tiết
Nguyễn Cảnh Hùng
Xem chi tiết
Thwn Dayy
Xem chi tiết