1. до1. Жылт-жылт еткен, Жылғадан өткен.2. Отқа жанбас, Суға батпас.3. Тырсылдап түседі, Жер бетіне жетеді.Жер бетіне жеткен соң, Ғайып болып кетеді.4. Мамықтай ұлпа, Қанттай ақ.Қыста жер бетін басадыЖазда тауға қашады.​

Const
  n = 15;

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

begin
  Randomize;
  writeln('Исходный массив');
  for i := 1 to n do
  begin
    a[i] := Random(100) - 50;
    write(a[i]:6);
    if a[i] < 0 then a[i] := sqr(i)
  end;
  writeln;
  writeln('Результирующий массив');
  for i := 1 to n do write(a[i]:6);
  writeln
end.

Тестовое решение:

Исходный массив
     3    37    40    17    20   -12   -27     4    34    -1     9    42    -6   -36    28
Результирующий массив
     3    37    40    17    20    36    49     4    34   100     9    42   169   196    28

#include <iostream>

using namespace std;

void main ()

{

int a,b;

cin>>a>>b;

int temp;

if (a>b) {temp = b; b=a; a= temp; }

   cout<< "ves' diapozon"<<endl;

for (int i = a; i<=b; i++)

   {

   cout<< i<<" ";

   }

cout<<endl;

   cout<< "chetnye"<<endl;

for (int i = a; i<=b; i++)

   {

   if ( (i%2)==0)  cout<< i;

   }

cout<<endl;

cout<< "ne chetnye"<<endl;

for (int i = a; i<=b; i++)

   {

   if ( (i % 2) !=0)    cout<< i<<" ";

   }

cout<<endl;

   cout<< "krany 7"<<endl;

for (int i = a; i<=b; i++)

   {

   if( (i%7)==0) cout<< i;

   }

system("pause");

return 0;

}

Подробнее - на -