Ответ:

#include <bits/stdc++.h>

using namespace std;

long long a,b,c,A,B,count1=0,d,F[17],sum=0,min1=10000,minI;

int main()

{

   for(int i=1;i<=10;i++){

       F[i]=rand()%30;

       if(F[i]>15){

           F[i]=F[i]/3;

       }

       if(F[i]<min1){

           min1=F[i];

           minI=i;

       }

       sum+=F[i];

       cout<<F[i]<<" ";

   }

   cout<<endl;

   cout<<"Suma: "<<sum<<endl;

   cout<<"minIndex: "<<minI<<endl;

   return 0;

}

11 5 4 10 9 4 6 6 7 14

Suma: 76

minIndex: 3

Объяснение:

Тут и так всё понятно

Ответ:

PascalABC.NET 3.6.2

begin

 var a := ArrRandom(10, 0, 30); //Массив из 10 элементов в заданном диапазоне

 a.Transform(p -> p > 15 ? p div 3 : p); //Все элементы больше 15 делим нацело на 3

 a.Sum.Println; //Находим сумму

 Print(a.IndexMax.Println); //Находим индекс первого максимума

end.

Объяснение: