Chương trình con và lập trình có cấu trúc

Đặng Công

Viết chương trình pascal để nhập 1 mảng gồm n số nguyên dương a1...an.sau đó 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:13

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ự
09 Lê Quang HIếu
Xem chi tiết
27. Nguyễn Chí Thiện
Xem chi tiết
Lê Trung Hiếu
Xem chi tiết
Ngọc Diệp
Xem chi tiết
Võ Văn Thái
Xem chi tiết
ádfg
Xem chi tiết
Vũ Ngọc Anh
Xem chi tiết
Nguyễn Hữu Nam
Xem chi tiết
Ngọc
Xem chi tiết