1 viết chương trình tính số trung bình cộng 2 viết chương trình tìm MinMax Cho vote cao cho những ai trở lời đúng

1 viết chương trình tính số trung bình cộng
2 viết chương trình tìm MinMax
Cho vote cao cho những ai trở lời đúng

0 bình luận về “1 viết chương trình tính số trung bình cộng 2 viết chương trình tìm MinMax Cho vote cao cho những ai trở lời đúng”

  1. 1)

    program trung_binh;

    uses crt;

    var A:array[1..1000] of integer;

         n,i,t:integer;

    begin

          clrscr;

          write(‘Nhap so luong phan tu: ‘);  readln(n);

          t:=0;

          for i:=1 to n do

                begin

                      write(‘Nhap so thu ‘,i,’: ‘);  readln(A[i]);

                      t:=t+A[i];

                end;

          write(‘Trung binh cong la: ‘,t/n:0:2);

          readln;

    end.

    2)

    program min)max;

    uses crt;

    var A:array[1..1000] of integer;

         n,i,min,max:integer;

    begin

          clrscr;

          write(‘Nhap so luong phan tu: ‘);   readln(n);

          for i:=1 to n do

                begin

                      write(‘Nhap so thu ‘,i,’: ‘);  readln(A[i]);

                end;

          max:=A[1];  min:=A[1];

          for i:=2 to n do

                begin

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

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

                end;

          writeln(‘Min la: ‘,min);

          writeln(‘Max la: ‘,max);

          readln;

    end.

    Bình luận
  2. Câu 1: chương trình tính số trung bình cộng

    #include <cstdlib>

    #include <iostream>

    using namespace std;

    double avg(int arr[],int size){ //khong xac dinh kich co mang giua hai dau [ va ]

    int sum=0;

    double r;

    for(int i=0;i<size;i++)

    sum+=arr[i];

    r=(double)sum/size;

    return(r);

    }

    int main(){

    int n;

    cout<<“Nhap so cac so nguyen:”;

    cin>>n;

    int arr[n];

    for(int i=0;i<n;i++){

    cout<<“Gia tri “<<i+1<<“: “;

    cin>>arr[i];

    }

    cout<<“Gia tri trung binh=”<<avg(arr,n)<<endl; //chi dat ten cho mang khi ham duoc goi return 0; }

    Câu 2 : chương trình tìm MinMax 

    Program Cau2;

    Uses crt;

    Var i,n,max,min: integer;

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

    Begin

    Clrscr;

    Write(‘ Nhap do dai cua day so, n= ‘);

    Readln(n);

    Writeln(‘Nhap cac phan tu cua day so: ‘);

    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;

    Writeln(‘So lon nhat la max= ‘, max);

    Writeln(‘So nho nhat la min= ‘, min);

    Readln;

    End.

    Nhớ cho minmochi880 ctlhn nhoa~

    Bình luận

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