uses crt; var arr: array[1..100] of integer; var i, n, max: integer; begin write('Hay nhap so nguyen n: '); readln(n); for i := 1 to n do begin write('Hay nhap phan tu arr[', i, ']: '); readln(arr[i]); end; writeln('Mang ban vua nhap la: '); for i := 1 to n do write(arr[i], #32); //#32 la mot dau cach writeln; max := arr[1]; for i := 1 to n do if max < arr[i] then max := arr[i]; writeln('Phan tu lon nhat: ', max); readln; end.
program Max_Min;
uses crt;
var i,n: inreger; max: 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];
for i:=2 to n do
begin
if max
