1. Tính tổng các số âm và tổng các số dương của dãy. 2. Tính tích các số chẵn của dãy gồm 10 số nguyên. (Dùng kiểu mảng)

0 bình luận về “1. Tính tổng các số âm và tổng các số dương của dãy. 2. Tính tích các số chẵn của dãy gồm 10 số nguyên. (Dùng kiểu mảng)”

1. Bài 1:

   Program BTT;
   Uses crt;
   Var A: array[1..100] of longint;
       n,i,sa,sd: longint;
   Begin
           Clrscr;
           Write(‘Nhap n: ‘); Readln(n);
           sa:=0; sd:=0;
           For i:=1 to n do
           Begin
                   Write(‘A[‘,i,’] = ‘);
                   Readln(A[i]);
                   If A[i]>0 then sd:=sd+A[i];
                   If A[i]<0 then sa:=sa+A[i];
           End;
           Writeln(‘Tong am: ‘,sa);
           Write(‘Tong duong: ‘,sd);
           Readln
   End.

   Bài 2:

   Program BTT;
   Uses crt;
   Var A: array[1..100] of longint;
       t,i: longint;
   Begin
           Clrscr;
           t:=1;
           For i:=1 to 10 do
           Begin
                   Write(‘A[‘,i,’] = ‘);
                   Readln(A[i]);
                   If A[i] mod 2 = 0 then t:=t*A[i];
           End;

           Write(‘Tong cac so chan: ‘,t);
           Readln
   End.

   Bình luận