(паскаль) молю . в произвольном одномерном массиве найти сумму индексов положительных элементов.

// pascalabc.net 3.1, сборка 1218 от 12.04.2016 begin   var a: =arrrandom(readinteger('n=',50);   a.println;   writeln('s=',a.select((x,i)-> rec(x,i+(x-> x.item1> 0)       .select(x-> x.item2).sum) end. тестовое решение: n= 15 -27 45 -9 38 -30 -22 -36 18 -40 5 -47 5 33 -21 -44 s=49

Var a: array [1..1000] of integer;             i,n,s: integer; begin        s: =0;     writeln ('введите размер массива');         readln (n);         for i: = 1 to n do begin            write ('a[',i,']= ');             readln (a[i]);           if a[i]> 0 then s: =s+i;           end; writeln ('сумма индексов положительных элементов = ',s); end.

первую фигуру мы можем раскрасить в 6 цветов, вторую - в 5, третью- в 4, и т.д. а первую - в 3 цвета

6*5*4*3=360

ответ 360 способов