Viết chương trình nhập 1 dãy số gồm n số ( n nhập từ bàn phím) tìm và in ra giá trị lớn nhất trong dãy số vừa nhập
Viết chương trình nhập 1 dãy số gồm n số ( n nhập từ bàn phím) tìm và in ra giá trị lớn nhất trong dãy số vừa nhập
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