Giúp mình với ạ 1.Tính tích các giá trị nhỏ hơn 5 trong mảng. 2.Tính trung bình cộng các giá trị là chẵn trong dãy.

0 bình luận về “Giúp mình với ạ 1.Tính tích các giá trị nhỏ hơn 5 trong mảng. 2.Tính trung bình cộng các giá trị là chẵn trong dãy.”

1. Var A: array[1..250] of integer;

       t, s: longint;

       n, i, d: byte;

   Begin

           Write(‘Nhap n: ‘); Readln(n);

           t:=1; d:=0; s:=0;

           For i:=1 to n do

           Begin

                   Write(‘a[‘, i, ‘] = ‘); Readln(A[i]);

                   If A[i]<5 = 0 then t:=t*A[i];

                   If A[i] mod 2 = 0 then

                   Begin

                           inc(d);

                           s:=s+A[i];

                   End;

           End;

           Writeln(‘tich = ‘, t);

           Write(‘trung binh = ‘, s/d:10:2);

           Readln

   End.

   Bình luận

2. Program NN;
   Uses crt;
   Var A: array[1..10000] of longint;
       n,i,t,s,d: longint;
   Begin
           Clrscr;
           Write(‘Nhap n: ‘); Readln(n);
           t:=1; d:=0; s:=0;
           For i:=1 to n do
           Begin
                   Read(A[i]);
                   If A[i] mod 5 = 0 then t:=t*A[i];
                   If A[i] mod 2 = 0 then
                   Begin
                           inc(d);
                           s:=s+A[i];
                   End;
           End;
           Writeln(‘1. ‘,t);
           Write(‘2. ‘,s/d:0:2);
           Readln
   End.

   Bình luận