Nhập vào 1 mảng số nguyên gồm n phần tử. In ra màn hình các phần tử chia hết cho x và tính trung bình các phần tử đó

0 bình luận về “Nhập vào 1 mảng số nguyên gồm n phần tử. In ra màn hình các phần tử chia hết cho x và tính trung bình các phần tử đó”

1. program CTNMT;

   uses crt;

   var n,i,dem: longint;

   A: array [1..n] of longint;

   Begin

   Writeln(‘Ban hay N’); Readln(n);

   for i:=1 to n do

   begin

   Writeln(‘Nhap so thu ‘,i); Readln(a[i]);

   writeln(‘Nhap so x: ); readln(x);

      writeln(‘Cac phan tu chia het cho x: ‘);

        Tb:=0; dem:=0;

      for i:=1 to n do

        begin

           if A[i] mod x=0 then writeln(A[i]);

           if A[i] mod x=0 then dem:=dem+1;

        end;

      for i:=1 to n do

         if A[i] mod x=0 then trung binh:=(Tb+A[i])/dem;

      writeln(‘Trung binh cac phan tu do la: ‘,TB);

   readln;

   end.

   Bình luận

2. program ct;

   uses crt;

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

         n,x:integer;

         Tb:real;

   begin clrscr;

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

      for i:=1 to n do

        begin

           writeln(‘Nhap phan tu thu ‘,i,’: ‘); readln(A[i]);

        end.

      writeln(‘Nhap so x: ); readln(x);

      writeln(‘Cac phan tu chia het cho x: ‘);

        Tb:=0; dem:=0;

      for i:=1 to n do

        begin

           if A[i] mod x=0 then writeln(A[i]);

           if A[i] mod x=0 then dem:=dem+1;

        end;

      for i:=1 to n do

         if A[i] mod x=0 then Tb:=(Tb+A[i])/dem;

      writeln(‘Trung binh cac phan tu do la: ‘,TB);

   readln;

   end.

   Học tốt!

   Bình luận