uses crt;
var A:array[1..1000] of integer;
    i,n,sd,sch,s5,max:integer;
begin
   clrscr;
   write('Nhap n: '); readln(n);
   for i:=1 to n do
   begin
      write('Nhap phan tu thu ',i,': ');
      readln(A[i]);
      if A[i]>0 then sd:=sd+A[i];
      if A[i] mod 2 = 0 then sch:=sch+A[i];
      if A[i] mod 5 = 0 then s5:=s5+A[i];
   end;
   for i:=1 to n do write(A[i]:4);
   writeln;
   max:=A[1];
   for i:=2 to n do if A[i]>max then max:=A[i];
   write('Tong cua cac phan tu duong la: ',sd);
   writeln;
   write('Tong cua cac phan tu chan la: ',sch);
   writeln;
   write('Tong cua cac phan tu chia het cho 5 la: ',s5);
   readln
end.

program ct;

uses crt;

var i,n,tong,sochan,s,max:integer;

A:array[1..100] of integer;

begin

clrscr;

write('nhap so phan tu:=');readln(n);

for i:=1 to n do

begin

write('nhap mang a[',i,']:=');readln(a[i]);

end;

(3)

tong:=0;

for i:=1 to n do

if a[i] >0 then tong:=tong+a[i];

writeln('tong cac so duong',tong);

(4)

sochan:=0;

if a[i] mod 2=0 then sochan:=sochan+a[i];

writeln('tong cac so chan la',sochan);

(5)

 s:=0;

for i:=1 to n do

if a[i] mod 5=0 then s:=s+a[i];

write('tong cac phan tu chia het cho 5 la',s);

(6)

max:=a[1];

for i:=2 to n do

if max<[i] them max:=a[i];

writeln('phan tu lon nha la',max);

readln

end.