uses crt;
var n,i,s,min: integer;
a:array[1..100] of integer;
begin
clrscr;
write('nhap so n:');readln(n);
s:=0;
for i:=1 to n do
begin
 write('A[',i,']=');
 readln(a[i]);
end;
write('day so vua nhap:');
for i:=1 to n do write(a[i]:2);
for i:=1 to n do
 if a[i] >0 then s:=s+a[i];
writeln;
writeln('tong cac ptu lon hon 0 la:',s);
min:=a[1];
for i:=1 to n do
if min > a[i] then min:=a[i];
write('ptu be nhat:',min);
readln;
end.

(mong dc 5*+hay nhất)

n=int(input('n='))
a=[int(input('a[%d]='%i)) for i in range (n)]
print('day so vua nhap:',*a)
print('tong cac phan tu lon hon 0:',sum([a[i] for i in range (n) if (a[i]>0)]))
print('phan tu co gia tri be nhat:',min(a))

$\color{green}{\text{Cần code C/C++, C#, Java, JavaScript thì nói để mình thêm}}$

$\color{red}{\text{#Daoanhviet96}}$