program oken; uses crt; var a: array [1..100] of integer; i,n,max: integer; begin clrscr; write(‘Nhap so phan tu cua mang: ‘); 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 if a[i]>max then max:=a[i]; writeln(‘So lon nhat: ‘,max); readln; end.
Code tham khảo cách viết hàm tìm giá trị lớn nhất trong mảng như sau
0123456789 int max(int a[], int n){ int max = a[0]; for (int i = 1; i < n; i++) if (max < a[i]) max = a[i]; return max;} Viết chương trình tìm số nhỏ nhất trong mảng
Tương tự như trên ta cũng làm lần lượt các bước
program oken;
uses crt;
var a: array [1..100] of integer;
i,n,max: integer;
begin
clrscr;
write(‘Nhap so phan tu cua mang: ‘); 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
if a[i]>max then
max:=a[i];
writeln(‘So lon nhat: ‘,max);
readln;
end.