Bài 1:
program Bai_1;
uses crt;
var A:array [1..500] of integer;
n,i,T1,T2,max,d1,min,d2: integer;
Begin
clrscr;
write('Nhap so phan tu: '); readln(n);
max:=1; d1:=1; min:=1; d2:=1;
for i:=1 to n do
begin
write('A[',i,']='); readln(A[i]);
if A[i]>0 then T1:=T1+A[i];
if A[i]<0 then T2:=T2+A[i];
if max<A[i] then
begin
max:=A[i];
d1:=i;
end;
if min>A[i] then
begin
min:=A[i];
d2:=i;
end;
end;
writeln('Tong cac so nguyen duong: ',T1);
writeln('Tong cac so nguyen am: ',T2);
writeln('So lon nhat: ',max,' o vi tri thu ',d1);
writeln('So nho nhat: ',min,' o vi tri thu ',d2);
readln
End.
Bài 2: