Минимум два отличия первичного от расширенного разделов жёсткого диска.

Turbo Pascal
USES CRT;
VAR A:array[1..100] of integer;   
        i,n,summa:integer;

BEGIN
CLRSCR;
Randomize;

  {Проверяем на размер массива, чтобы не превышал 100}
   Repeat   
      Writeln('Введите размер массива до 100');   
      Readln(n);
   Until n<=100;

{Заполняем массив случайными числами от -50 до 100}
   For i:=1 to n do   
      begin     
         A[i]:=-50+Random(100);     
         Write(A[i],'  ');   
      end;

   summa:=0;

{Находим отрицательные элементы массива и складываем}
   For i:=1 to n do   
      if A[i]<0 then summa:=summa+A[i];

   Writeln;
   Writeln('Сумма отрицательных элементов массива  = ',summa);

READLN;
END.

#include <iostream>
using std::cout;
using std::endl;
#include <cstdlib>
using std::rand;
using std::srand;
#include <ctime>
using std::time;
#include <iomanip>
using std::setw;

int main()
{
    int a[6][7];

    srand(time(0));

    for(int i = 0; i < 6; i++)
    {
        for(int j = 0; j < 7; j++)
        {
            a[i][j] = rand() % 17 - 4;

            cout << setw(2) << a[i][j] << ' ';
        }
        cout << endl;
    }
    cout << endl;

    for(int i = 1; i < 6; i += 2)
    {
        for(int j = 0; j < 7; j++)
        {
            a[i][j] = 1;
        }
    }

    for(int i = 0; i < 6; i++)
    {
        for(int j = 0; j < 7; j++)
        {
            cout << setw(2) << a[i][j] << ' ';
        }
        cout << endl;
    }
    cout << endl;

    return 0;
}