Сформировать из 10 случайных чисел из отрезка [0;25] и найти сумму положительных элементов массива.

program kol_vo_elementov;var a:array[1..10] of integer;i, s:integer;beginfor i:=1 to 10 dobegina[i]:=random(25);write(a[i],' ');if (a[i]>0) thens:=s+a[i];end;writeln('s=',s);end.