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

Thảo luận trong 'Học Online' bắt đầu bởi Liễu., 9 Tháng ba 2021.

  1. Liễu.

    Bài viết:
    110
    Đề: 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ý
     
    Admin thích bài này.
    Chỉnh sửa cuối: 4 Tháng ba 2022
Từ Khóa:
Trả lời qua Facebook
Đang tải...