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ã

By Valerie

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;
    }

    Trả lời
  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.

    Trả lời

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