Tìm giá trị lớn nhất trong dãy số nguyên. Yêu cầu Max:=aN và so sánh lần lượt giá trị Max với các giá trị thứ N-1 về 1.
Tìm giá trị lớn nhất trong dãy số nguyên. Yêu cầu Max:=aN và so sánh lần lượt giá trị Max với các giá trị thứ N-1 về 1.
By Eva
By Eva
Tìm giá trị lớn nhất trong dãy số nguyên. Yêu cầu Max:=aN và so sánh lần lượt giá trị Max với các giá trị thứ N-1 về 1.
uses crt;
var n,i,max:longint; a:array[1..10000000]of longint;
begin
clrscr;
write(‘n=’);readln(n);
for i:=1 to n do
begin
write(‘a[‘,i,’]=’);readln(a[i]);
end;
max:=a[n];
for i:=n-1 downto 1 do if a[i]>max then max:=a[i];
writeln(‘Max: ‘,max);
readln
end.
Program qtruong;
Uses crt;
Var max, n, i: integer;
a:array[1..100] of integer;
Begin
Clrscr;
Write(‘Nhap n = ‘); readln(n);
For i:=1 to n do
begin
write(‘a[‘,i,’]=’);
readln(a[i]);
end;
Max:=a[n];
For i:=n-1 downto 1 if a[i] > max then max:=a[i];
Writeln(‘GTLN trong day la: ‘,max);
readln
end.