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.

uses crt;
var i,n,am,du:longint; a:array[1..100000]of longint;
begin 
clrscr;
   write('Nhap so phan tu: ');readln(n);
   for i:=1 to n do
      begin
         write('Nhap phan tu thu ',i,': ');readln(a[i]);
         if a[i]<0 then inc(am,a[i]) else inc(du,a[i]);
      end;
   writeln(am,' ',du);
readln
end.

2.

uses crt;
var i,n,t:longint; a:array[1..100000]of longint;
begin 
clrscr;
   t:=1;
   for i:=1 to 10 do
      begin
         write('Nhap phan tu thu ',i,': ');readln(a[i]);
         if a[i] mod 2=0 then t:=t*a[i];
      end;
   writeln(t);
readln
end.

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.