Заполнить массив d(15) случайными числами (-70;30). Заменить элементы массива квадратами их

Ответ:

includelt;iostreamgt;

includelt;ctimegt;

using namespace std;

int main()

srand(time(NULL));

setlocale(LC_ALL, "Russian");

int d[15];

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

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

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

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

cout lt;lt; endl;

for (int i = 0; i lt; 15; i++)//замена частей массива

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

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

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

cout lt;lt; endl;

system("Pause");

return 0;

Изъясненье:

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