– nhập vào 1 mảng gồm N số nguyên, sau đó in ra màn hình: + Tính Trung bình các số trong mảng + Đếm xem trong mảng có bao nhiêu số thỏa mãn điều kiện

– nhập vào 1 mảng gồm N số nguyên, sau đó in ra màn hình:
+ Tính Trung bình các số trong mảng
+ Đếm xem trong mảng có bao nhiêu số thỏa mãn điều kiện cho trước ( chia hết cho 3, lớn hơn 100,…)

0 bình luận về “– nhập vào 1 mảng gồm N số nguyên, sau đó in ra màn hình: + Tính Trung bình các số trong mảng + Đếm xem trong mảng có bao nhiêu số thỏa mãn điều kiện”

  1. * Với kiểu mảng cho kết quả trung bình cộng:
    Uses crt;

    Var a:array[1..10000] of integer;

    n,i,tong:integer; TBC:real;

    Begin

    Clrscr;

    Write(‘Nhap so ptu N= ‘);  Readln(n);

    Tong:=0;  

    For i:=1 to n do

    Begin

    Write(‘Nhap a[‘,i,’]: ‘);  Readln(A[i]);

    Tong:=Tong+a[i];

    End;
    TBC:=Tong/n;

    Writeln(‘Trung binh cong cac so trong day tren la: ‘,TBC:3:2);

    Readln

    End.

    *Với kiểu mảng cho số lượng các số thỏa mãn điều kiện cho trước (chia hết cho 3, lớn hơn 100)

    Uses crt;

    Var a:array[1..10000] of integer;

    n,i,dem:integer;

    Begin

    Clrscr;

    Write(‘Nhap so ptu N = ‘);  Readln(n);

    Dem:=0;

    For i:=1 to n do

    Begin

    Write(‘Nhap a[‘,i,’]: ‘);  Readln(a[i]);

    If (A[i] mod 3=0) and (A[i]>100) then dem:=dem+1 else Write(‘Khong co so nao thoa man ĐK cho truoc!’);

    End;
    Write(‘Cac so thoa man dieu kien cho truoc gom: ‘,dem ,’so’);

    Readln

    End.

    Bình luận
  2. Ý 1:

    program trung_binh;

    Uses crt;

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

          n,i,t:integer;

    begin

           clrscr;

           write(‘Nhap N: ‘);  readln(n);

           t:=0;  

           for i:=1 to n do

                  begin

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

                         t:=t+A[i];

                  end;

           writeln(‘Trung binh cac so la: ‘,t/n:0:2);

           readln;

    end.

    Ý 2:

    program dem_so;

    Uses crt;

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

          n,i,d:integer;

    begin

           clrscr;

           write(‘Nhap N: ‘);  readln(n);

           d:=0;

           for i:=1 to n do

                  begin

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

                         if (A[i] mod 3=0) and (A[i]>100) then d:=d+1;

                  end;

           write(‘So luong so thoa man dieu kien la: ‘,d);

           readln;

    end.

    Bình luận

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