Question

Viết chương trình tìm giá trị lớn nhất của 1 dãy số đc nhập vào từ bàn phím ( sử dụng biến mảng )

Help me ! Mk đg cần gấp. Thanks

Answer 1

program Max_Min;
uses crt;
var i,n: inreger; max,min: real;
a : array [1..10000] of real;
begin
clrscr; readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end; max:=a[1]; min:=a[1];
for i:=2 to n do
begin
if max<a[i] then max:=a[i];
if min>a[i] then min:=a[i];
end;
writeln('So lon nhat : ',max:2:2);
writeln('So nho nhat : ',min:2:2);
readln
end.