Nhập vào một dãy n số và nhập số nguyên X đếm xem có bao nhiêu số lớn hơn x và tính tích các số đó

0 bình luận về “Nhập vào một dãy n số và nhập số nguyên X đếm xem có bao nhiêu số lớn hơn x và tính tích các số đó”

1. uses crt;

   var n,i,x,d:integer;

         m:longint;

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

   begin

       clrscr;

       d:=0;

       m:=1;

       readln(n);

       for i:=1 to n do readln(a[i]);

       readln(x);

       for i:=1 to n do

       begin

            if a[i]>x then

            begin

                d:=d+1;

                m:=m*a[i];

            end;

       end;

       write(d:2,m);

       readln;

   end.

   Bình luận

2. uses crt;
   var arr: array[1..100] of integer;
   n, x, count, i, tich: integer;
   begin
           clrscr;
           write(‘Hay nhap so nguyen n: ‘);
           readln(n);
           for i := 1 to n do
           begin
                   write(‘Hay nhap phan tu arr[‘, i, ‘]: ‘);
                   readln(arr[i]);
           end;
           write(‘Mang ban vua nhap la: ‘);
           for i := 1 to n do
                   write(arr[i], ‘ ‘);
           writeln;
           write(‘Hay nhap so nguyen X: ‘);
           readln(x);
           tich := 1;
           for i := 1 to n do
           begin
                   if arr[i] > x then
                   begin
                           tich := tich * arr[i];
                           count := count + 1;
                   end;
           end;
           writeln(‘Co ‘, count, ‘ so lon hon ‘, x, ‘.’);
           writeln(‘Tich cua cac so lon hon ‘, x ,’ la: ‘, tich);
           readln;
   end.

   Bình luận