viết chương trình nhập vào 1 mảng có n(n<50) phần tử và in ra màn hình số lớn nhất số nhỏ nhẩt trong các phần tử mảng vừa nhập MIK ĐAG CẦN GẤP MOG MN

viết chương trình nhập vào 1 mảng có n(n<50) phần tử và in ra màn hình số lớn nhất số nhỏ nhẩt trong các phần tử mảng vừa nhập MIK ĐAG CẦN GẤP MOG MNG GIÚP MIK !!!

0 bình luận về “viết chương trình nhập vào 1 mảng có n(n<50) phần tử và in ra màn hình số lớn nhất số nhỏ nhẩt trong các phần tử mảng vừa nhập MIK ĐAG CẦN GẤP MOG MN”

  1. program ct;

    uses crt;

    var i,n,Max,Min:integer;

    A:array[1..50] of integer;

    begin

    clrscr;

    write(‘nhap n:=’);readln(n);

    for i:=1 to n do

    begin

    write(‘nhap mang A[‘,i,’]:=’);readln(A[i]);

    end;

    Max:=A[1]; Min:=A[1];

    for i:=2 to n do

    begin

      if Max<A[i] then Max:=A[i];

      if Min>A[i] then Min:=A[i];

    end;

    writeln(‘gia tri lon nhat la’,Max);

    writeln(‘gia tri nho nhat la’,Min);

    readln

    end.

    Bình luận
  2. uses crt;
    var n,i,max,min:longint; a:array[1..10000000]of longint;
    begin
    clrscr;
       write(‘Nhap so n: ‘);readln(n);
       min:=high(longint);
       for i:=1 to n do 
          begin
             write(‘Nhap phan tu thu ‘,i,’: ‘);read(a[i]);
             if a[i]>max then max:=a[i];
             if min>a[i] then min:=a[i];
          end;
       writeln(‘So lon nhat: ‘,max);
       writeln(‘So nho nhat: ‘,min);
    readln
    end.

    Bình luận

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