Câu hỏi của Thị Ngọc Thảo Đinh - Tin học lớp 8 | Học trực tuyến c
Lời giải :
program hotrotinhoc ;
var a : array[1..32000] of integer ;
max,i,n : integer ;
begin
write('Nhap do dai cua mang :'); readln(n);
writeln('Nhap gia cua cac phan tu');
for i:= 1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
max:=a[1];
for i:= 1 to n do
if a[i] > max then max:=a[i] ;
write('So lon nhat trong day so la :',max);
readln
end.