Question

Đọc dữ liệu từ tệp hoặc mảng, xuất dữ liệu. Sử dụng chương trình con tìm min hoặc max. Sau đó ghi kết quả vào tệp hoặc mảng. Giúp em mn ạ

Answer 1

uses crt;

var a:array[1..100]of integer;

i,n,max,min: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];

min:=a[1];

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);

writeln('So nho nhat la: ',min);

readln;

end.