Viết chương trình pascal: Nhập số nguyên tố n, tìm giá trị lớn nhất, giá trị nhỏ nhất

Đề: Viết chương trình pascal: Nhập số nguyên tố n, tìm giá trị lớn nhất, giá trị nhỏ nhất.

Giải:

Mã:

program ct2;
uses crt;
var
  a: array [1..100] of Integer;
  i, n, max, min: Integer;
begin
  Write('nhap so nguyen: ');
  Read(n);
  for i := 1 to n do
    begin
      Write('so thu ', i, ': ');
      Read(a);
      max := a[1];
      min := a[1];
    end;
  for i := 2 to n do
    begin
      if (a > max) then
        max := a ;
      if (a < min) then
        min := a ;
    end;
  WriteLn('max= ', max);
  WriteLn('min= ', min);
  readln;
end.

Viết bài 1 lần, nhận nhuận bút cả đời: Đăng Ký