Question

Viết chương trình tìm max, min của dãy A gồm n phần tử (n<50)

Answer 1

uses crt;
var n,i,max,min: integer;
a: array [1..50] of integer;
begin
clrscr;
write('Nhap so phan tu: ');readln(n);
for i:= 1 to n do
begin write('Nhap phan tu thu ',i,': '); readln(a[i]); end;
max:= 0; min:= 0;
for i:= 1 to n do begin
if max < a[i] then max:= a[i];
if min > a[i] then min:= a[i];
end;
writeln('So lon nhat la: ',max);
write('So nho nhat la: ',min);
readln
end.