Viết chương trình nhập vào mảng A gồm n phần tử. Tìm các số lẻ trong mảng, tính tổng các số lẻ và tính trung bình cộng các số lẻ đó.

Viết chương trình nhập vào mảng A gồm n phần tử. Tìm các số lẻ trong mảng, tính tổng các số lẻ và tính trung bình cộng các số lẻ đó.

0 bình luận về “Viết chương trình nhập vào mảng A gồm n phần tử. Tìm các số lẻ trong mảng, tính tổng các số lẻ và tính trung bình cộng các số lẻ đó.”

  1. program chuongtrinh;
    var a:array[1..100] of integer;
       i,n,s:integer;
       tb:real;
       begin
       writeln(‘nhap so phan tu n’);readln(n);
       for i:=1 to n do
       readln(a[i]);
       for i:=1 to n do
       if a[i] mod 2<>0 then
       s:=s+a[i];
       tb:= s/n;
       writeln(‘tong la’,s:4);
       writeln(‘trung binh cong la’,tb:4);
       readln;
       end.

    Bình luận
  2. program mang;

    uses crt;

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

          n,i,T: integer;

    Begin

             clrscr;

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

             for i:=1 to n do

             begin

                      write(‘A[‘,i,’]=’); readln(A[i]);

             end;

             write(‘Cac so le: ‘);

             for i:=1 to n do

             begin

                      if A[i] mod 2<>0 then

                      begin

                               write(A[i],’  ‘);

                               T:=T+A[i];

                      end;

             end;

             writeln;

             write(‘Trung binh cong cac so le = ‘,T/n:2:2);

             readln

    End.

    viet-chuong-trinh-nhap-vao-mang-a-gom-n-phan-tu-tim-cac-so-le-trong-mang-tinh-tong-cac-so-le-va

    Bình luận

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