Viết chương trình nhập vào một dãy A gồm n(n≤100) số nguyên. Hãy viết chương trình tìm phần tử lớn nhất(Max) của dãy đã cho. In kết quả ra màn hình
Viết chương trình nhập vào một dãy A gồm n(n≤100) số nguyên. Hãy viết chương trình tìm phần tử lớn nhất(Max) của dãy đã cho. In kết quả ra màn hình
program lon_nhat;
uses crt;
var A:array[1..100] of integer;
n,i,max:integer;
begin
clrscr;
{—Nhap—}
write(‘Nhap n (n<=100) : ‘); readln(n);
for i:=1 to n do
begin
write(‘A[‘,i,’]= ‘); readln(A[i]);
end;
{—Tim-lon-nhat—}
max:=A[1];
for i:=2 to n do
if A[i]>max then max:=A[i];
writeln(‘So lon nhat la: ‘,max);
readln;
end.
uses crt;
var n,i,max:longint;a:array[1..100]of longint;
begin
clrscr;
repeat
write(‘Nhap so luong phan tu: ‘);readln(n);
if (n<=0)and(n>100) then writeln(‘NHAP LAI!’);
until n<=100;
for i:=1 to n do
begin
write(‘Nhap phan tu thu ‘,i,’: ‘);readln(a[i]);
end;
max:=a[1];
for i:=2 to n do if a[i]>max then max:=a[i];
write(‘Phan tu lon nhat: ‘,max);
readln;
end.