Cho mảng số nguyên A gồm n phần tử A1....... An (n<250) Viết chương tình tìm và in ra màn hình phần tử có giá trị lớn nhất
2 câu trả lời
uses crt;
var a:array[1..250]of integer;
i,n,max:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
max:=a[1];
for i:=1 to n do
if max<a[i] then max:=a[i];
writeln('Gia tri lon nhat la: ',max);
writeln('Vi tri cua no trong mang la: ');
for i:=1 to n do
if max=a[i] then write(i:4);
readln;
end.
uses crt;
var a: array[1..250] of integer;
i,max,n: integer;
begin
clrscr;
write('Nhap n= ');readln(n);
for i:=1 to n do
begin
write('a[',i,']: ');readln(a[i]);
end;
for i:=1 to n do
If a[i] > max then max:=a[i];
write('Phan tu lon nhat la: ',max);
readln;
end.
