program minMaxArray;

var
  A: array[1..10] of Integer;
  i, min, max: Integer;

begin
  // Nhập giá trị cho mảng A
  for i := 1 to 10 do
  begin
    writeln('Nhap phan tu thu ', i, ': ');
    readln(A[i]);
  end;
  
  // Tìm giá trị nhỏ nhất và lớn nhất
  min := A[1];
  max := A[1];
  for i := 2 to 10 do
  begin
    if A[i] < min then
      min := A[i];
    if A[i] > max then
      max := A[i];
  end;

  writeln('Gia tri nho nhat trong mang A la: ', min);
  writeln('Gia tri lon nhat trong mang A la: ', max);

  readln;
end.