Найти сумму и произведение положительных элементов массива, значение которых меньше 10.

Не указан сам так что к примеру массив а(10). program z1; сonst n=10; var a: array[1..n] of integer; i,s,p: integer; begin randomize; for i: =1 to n do begin a[i]: =random (21)-10; write (a[i]: 4); end; p: =1; s: =0; for i: =1 to n do  begin if   10> a[i]> 0 then s: =s+a[i]; p: =p*a[i]; end; writeln; writeln('s=',s   'p=',p); end.

Var a,b: array[1..10] of integer; i,j,min,min2,sum: integer; beginrandomize; for i: =1 to 10 dobegina[i]: =random(10); writeln(a[i]); end; min: = a[1];   for i: = 2 to 10 dobeginif (a[i] < min) then  min: = a[i];   end; writeln('минимальный элемент 1 массива ',min); writeln('2 msssiv'); for j: =1 to 10 dobeginb[j]: =random(10); writeln(b[j]); end; min2: =b[1]; for j: =2 to 10 dobeginif ( b[j] < min2 ) then  min2: = b[j];   end; writeln('минимальный элемент 2 массива',min2); sum: =min+min2; writeln('summa min: ',sum); end.

#include< iostream> #include< string> using namespace std; int main() {       string s;       cin > > s;       int l = s.length();       for(int i = 0; i < l/2; i++)             if (s[i] == ': ') s[i] = '.';       for(int i = l/2; i < l; i++)             if (s[i] == '! ') s[i] = '.';             cout < < s;       return 0; }