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.

var n,i,d:longint;

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

begin

write('Nhap n: '); readln(n);

for i:=1 to n do

write('A[',i,'] = '); read(a[i]);

for i:=1 to n if a[i] < 0 then then inc(d);

writeln;

write('So âm: ',d);

readln;

end.

1.

Uses Crt;

Type Mang = ARRAY[1..50] Of Integer;

Var A:Mang;

N,i,S:Integer;

Begin {Nhập mảng} Write(‘Nhap N=’);

Readln(N);

For i:=1 To N Do

Begin Write(‘A[‘,i,’]=’);

Readln(A[i]);

End;

{Tính tổng}

S:=0; For i:=1 To N Do

If A[i]<0 Then S:=S+A[i]*A[i];

{In kết quả ra màn hình}

Writeln(‘S= ’, S);

Readln;

End.

2.

program bt; 
var a:array[1..1000] : integer; 
i,n,t:integer; 
begin 
write('nhap so phan tu cua mang'); 
readln(n); 
for i:=1 to n do 
begin 
write('phan tu thu ',i,' : '); 
readln(a[i]); 
end; 
for i:=1 to n do 
t:= t + a[i] 
write('tong cac phan tu trong mang la :',t); 
readln 
end.