viết chương trình 1 dãy n số và in ra số lẻ. viết chương trình 1 dãy n số và in ra số lớn nhất và nhỏ nhất.

viết chương trình 1 dãy n số và in ra số lẻ.
viết chương trình 1 dãy n số và in ra số lớn nhất và nhỏ nhất.

0 bình luận về “viết chương trình 1 dãy n số và in ra số lẻ. viết chương trình 1 dãy n số và in ra số lớn nhất và nhỏ nhất.”

  1. 1.

    #include <iostream>
    using namespace std;
    int main()
    {
        int n;
        cout<<“Nhap so phan tu cua mang: “;
        cin>>n;
        int arr[n];
        for(int i=0;i<n;i++){
            cout<<“Nhap phan tu thu “<<i+1<<“:”;
            cin>>arr[i];
        }
        for(int i=0;i<n;i++){
            if(arr[i]%2!=0){
                cout<<arr[i]<<” “;
            }
        }
        //samon247
        return 0;
    }

    2.

    #include <iostream>
    using namespace std;
    int main()
    {
        int n;
        cout<<“Nhap so phan tu cua mang: “;
        cin>>n;
        int arr[n];
        for(int i=0;i<n;i++){
            cout<<“Nhap phan tu thu “<<i+1<<“:”;
            cin>>arr[i];
        }
        int ln=arr[0],nn=arr[0];
        for(int i=0;i<n;i++){
            if(ln<arr[i]){
                ln=arr[i];
            }
            if(nn>arr[i]){
                nn=arr[i];
            }
        }
        cout<<“Phan tu be nhat: “<<nn<<“\nPhan tu lon nhat: “<<ln;
        //samon247
        return 0;
    }

    Bình luận
  2. Bài `1`

    Program Hotboy;

    Uses crt;

    Var i,n:integer;

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

    Begin

    clrscr;

     Write(‘nhap n tu ban phim ‘);

     Readln(n);

     For i:=1 to n do

    Begin

        Write(‘ A[‘,i,’]’);readln(A[i]);

    End;

    For i:=1 to n do

    If (A[i] mod 2<>0)  then

    write(‘cac so le la:’,A[i]);

    Readln

    End.

    Bài `2`

    Program Hotboy ;

    Uses crt;

    Var i,n,Max,Min:integer;

    S:longint;

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

    Begin

    Clrscr;

    S:=0;

    Write(‘nhap n tu ban phim’);

    Readln(n);

    For i:=1 to n do

    Begin

    Write(‘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;

    Write(‘so nho nhat la’,Min);

    Write(‘so lon nhat la’,Max);

    Readln

    End.

    Bình luận

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