Bài 6: Phép toán, biểu thức, câu lệnh gán

LH

Viết chương trình nhập vào số nguyên dương N,dãy gồm N số nguyên A1,A2,...AN. Tìm và đưa ra màn hình giá trị lớn nhất của dãy số nguyên

NT
4 tháng 5 2020 lúc 17:25

uses crt;

var n,i,max:integer;

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

begin

clrscr;

repeat

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

until (0<n) and (n<=100);

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('Gia tri lon nhat la: ',max);

readln;

end.

Bình luận (0)

Các câu hỏi tương tự
TH
Xem chi tiết
HT
Xem chi tiết
HT
Xem chi tiết
KO
Xem chi tiết
TA
Xem chi tiết
NT
Xem chi tiết
NK
Xem chi tiết
NT
Xem chi tiết
SC
Xem chi tiết