Sử dụng chương trình con tìm số nhỏ nhất của 2 số. Viết chương trình sử dụng chương trình con trên tìm và đưa ra màn hình giá trị nhỏ nhất của mảng mộ

Sử dụng chương trình con tìm số nhỏ nhất của 2 số. Viết chương trình sử dụng chương trình con trên tìm và đưa ra màn hình giá trị nhỏ nhất của mảng một chiều chứa n số nguyên nhập từ bàn phím.
Giúp em với mọi người ❤️

0 bình luận về “Sử dụng chương trình con tìm số nhỏ nhất của 2 số. Viết chương trình sử dụng chương trình con trên tìm và đưa ra màn hình giá trị nhỏ nhất của mảng mộ”

  1. uses crt;
    var a:array[1..1000] of longint;
    i,n,min:longint;
    function m(a,b:longint):longint;
    begin
        if a>b then exit(b);
        exit(a);
    end;
    begin
        clrscr;
        write(‘n=’);readln(n);
        for i:=1 to n do readln(a[i]);
        min:=a[1];
        for i:=2 to n do
           if m(min,a[i]) <> min then min:=m(min,a[i]);
        writeln(‘Min= ‘,min);
    readln;
    end.

    Bình luận

Viết một bình luận