[Liễu.]

Đề: 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:

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[i]);
      max := a[1];
      min := a[1];
    end;
  for i := 2 to n do
    begin
      if (a[i] > max) then
        max := a[i] ;
      if (a[i] < min) then
        min := a[i] ;
    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ý