program  raf105;

const n= 10;

var  

 a:array[1..n] of integer;

 i: integer;

begin

writeln('Исходный массив:');

for i:=1 to n do

begin

 a[i]:= random(-70,30);

 writeln(a[i]);

end;

writeln('Изменённый массив:');

for i:=1 to n do

begin

 a[i]:= a[i]*a[i];

 writeln(a[i]);

end;

end.

Язык PascalABC

Ответ:

#include<iostream>

#include<ctime>

using namespace std;

int main() {

srand(time(NULL));

setlocale(LC_ALL, "Russian");

int d[15];

for (int i = 0; i < 15; i++)//заполение массива случайными числами в диопазоне от -70 до 30

{

 d[i] = rand() % 101 + (-70);

}

for (int i = 0; i < 15; i++)//вывод массива

{

 cout << d[i] << " ";

}

cout << endl;

for (int i = 0; i < 15; i++)//замена элементов массива

{

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

}

for (int i = 0; i < 15; i++)//вывод массива

{

 cout << d[i] << " ";

}

cout << endl;

system("Pause");

return 0;

}

Объяснение: