GIÚP MÌNH VỚI MỘT BÀI CŨNG ĐƯỢC 1)viết chương trình nhập vào 1 dãy n số nguyên sau đó a) tính tổng các số trong dãy b)xuất ra giá trị lớn nhất của dã

GIÚP MÌNH VỚI MỘT BÀI CŨNG ĐƯỢC
1)viết chương trình nhập vào 1 dãy n số nguyên sau đó
a) tính tổng các số trong dãy
b)xuất ra giá trị lớn nhất của dãy số đó
2)viết chương trình nhập vào 1 dãy n số nguyên sau đó
a) tính tổng các số chẵn trong dãy
b)xuất ra giá trị lớn nhỏ nhất của dãy số đó

0 bình luận về “GIÚP MÌNH VỚI MỘT BÀI CŨNG ĐƯỢC 1)viết chương trình nhập vào 1 dãy n số nguyên sau đó a) tính tổng các số trong dãy b)xuất ra giá trị lớn nhất của dã”

  1. 1.

    #include <iostream>
    using namespace std;
    int main(){
        int n,total=0,ln=0;
        cin>>n;
        int arr[n];
        for(int i=0;i<n;i++){
            cin>>arr[i];
            if(ln<arr[i]){
                ln=arr[i];
            }
            total+=arr[i];
        }
        cout<<“Tong mang: “<<total<<“\nPhan tu lon nhat trong mang: “<<ln;
        //samon247
        return 0;
    }

    2.

    #include <iostream>
    using namespace std;
    int main(){
        int n,total=0,ln=0,bn;
        cin>>n;
        int arr[n];
        for(int i=0;i<n;i++){
            if(i==0){
                bn=arr[0];
            }
            cin>>arr[i];
            if(ln<arr[i]){
                ln=arr[i];
            }
            if(arr[i]%2==0){
                total+=arr[i];
            }
        }
        cout<<“Tong cac phan tu chan trong mang: “<<total<<“\nPhan tu lon nhat trong mang: “<<ln<<“\nPhan tu be nhat trong mang: “<<bn;
        //samon247
        return 0;
    }

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

    Program Hotboy;

    Uses crt;

    Var i,n:integer;

    Max,S:longint;

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

    Begin

    clrscr;

    S:=0;

     Write(‘nhap n nguyen duong tu ban phim ‘);

     Readln(n);

     For i:=1 to n do

    Begin

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

    End;

    Write(‘day so do la’);

    For i:=1 to n do

    S:=S+A[i];

    Max:=A[1];

    For i:=2 to n do

    If A[i] > max then A[i]:=max;

    Write(‘Tong la’,S, so lon nhat la’,max);

    Readln

    End.

    Bài `2`

    Program Hotboy;

    Uses crt;

    Var i,n:integer;

    Min,S:longint;

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

    Begin

    clrscr;

    S:=0;

     Write(‘nhap n nguyen duong 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

    S:=S+A[i];

    Max:=A[1];

    For i:=2 to n do

    If A[i] < min then A[i]:=min;

    Write(‘Tong chan la’,S, so nho  nhat la’,min);

    Readln

    End.

    Bình luận

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