2. Дано три числа a, b, c. Якщо хоча б одне з
них належить відрізку [0;15], то знайти суму
квадратів цих чисел, інакше — знайти
середнє арифметичне.​

                                        PascalABC.NET

begin

 var (a, b, c) := ReadInteger3('a, b, c:');

 if (a in range(0,15)) or (b in range(0,15)) or (c in range(0,15)) then

     print(sqr(a) + sqr(b) + sqr(c))

   else

     print((a + b + c) / 3)

end.

#include < cstdlib> #include < iostream> using namespace std; int main(int argc, char *argv[]){      int n;       cout< < "введите количество элементов массива."< < endl;       cin> > n;       int mas1[n];       int mas2[n];             for(int i=0; i< n; i++){      mas1[i] = rand()%100; //заполняем массив случайными числами от 0 до 100      if(mas1[i]%10 == 4) {                                mas2[i]=mas1[i]/2;                                 cout< < "замена! ";                                 }      else {cout< < "\t";                 mas2[i]=mas1[i];                 }      cout< < mas1[i]< < '\t'< < mas2[i]< < endl;       }      system("pause");       return exit_success; }

у меня тоже даша получилось))