Lời giải :
program hotrotinhoc ;
var a: array[1..32000] of real ;
i,n,tong : integer ;
begin
write('Nhap do dai cua day :'); readln(n);
write('Nhap cac gia tri cua phan tu');
for i:= 1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
tong:=0;
for i:= 1 to n do
if a[i] > 0 then
begin
write('Cac so duong la:',a[i]);
tong:=tong+a[i];
end;
write('Tong cac so duong la:',tong);
readln
end.
Tính và in ra tổng các số lẻ (dương)
Program Tinh_tong_so_le;
Uses CRT;
Var i,n,S:integer;
sl:boolean;
Begin
Clrscr;
Write('Nhap so n:');Readln(n);
sl:=True;
For i:=1 to n do
Begin
If sl=True then S:=S+i;
sl:= not True;
End;
Writeln('Tong cua n so le la:', S);
Readln;
End.