50 баллов.решите массив, срочно!

include lt;iostreamgt;

include lt;math.hgt;

using namespace std;

int main()

setlocale(LC_ALL, "Russian");

int mas[10];

double result, summa = 0, schet = 0;

cout lt;lt; "Введите элементы массива" lt;lt; endl;

for (int i = 0; i lt; 10; i++) // наполнение массива

 cout lt;lt; "[" lt;lt; i lt;lt; "]";

 cin gt;gt; mas[i]; "\n";

for (int i = 0; i lt; 10; i++) // вычисление среднего арифмет.

 if (mas[i] % 3 == 0)

  schet++;

  summa += mas[i];

for (int i = 0; i lt; 10; i++) //замена четных чисел в массиве их квадратами

 if (mas[i] % 2 == 0)

  mas[i] = pow(mas[i],2);

cout lt;lt; "Измененный массив -gt; ";

for (int i = 0; i lt; 10; i++)

 cout lt;lt; mas[i] lt;lt; " ";

cout lt;lt; endl;

result = summa / schet;

cout lt;lt; "Среднее арифметическое частей кратные 3 -gt; " lt;lt; result lt;lt; endl;

system("Pause");

return 0;

Программа на Паскале прилагается.