Tìm GTLN trong dãy số nguyên. Gợi ý:
– Giả sử số phần tử không vượt quá 100 kí tự.
– Sd khai báo trực tiếp.
– Gán giá trị lớn nhất cho phần tử đầu tiên của dãy.
– Sd vòng lọc để duyệt từ phần tử 1 đến phần tử n để tìm ra phần tử lớn nhất của dãy.
– Kq phải tìm được giá trị của max và vị trí của max trong dãy.
program oken;
uses crt;
var a: array [1..100] of integer;
i,n,max,vitri: integer;
begin
clrscr;
write(‘nhap so n: ‘); readln(n);
for i:=1 to n do
begin
write(‘a[‘,i,’]: ‘);
readln(a[i]);
end;
max:=a[1]; vitri:=1;
for i:=2 to n do
if a[i]>max then
begin
max:=a[i];
vitri:=i;
end;
writeln(‘Max: ‘,max);
writeln(‘vi tri cua Max: ‘,vitri);
readln;
end.