сделать блок схему! #include
#include //содержит rand()
#include //содержит time()
using namespace std;
void output(int* a, int n) // функция вывода массива
{
for (int i = 0; i < n; i++)
cout << a[i] << " ";
}
int main()
{
setlocale(LC_ALL, "Russian"); //подключение русского языка
srand(time(NULL));
int n = 1 + rand() % 15; //задаем рандомную размерность массива от 1 до 15
int* a = new int[n];
int count = 0, // количество отрицательных элементов
sum = 0, // сумма отрицательных элементов
pos = 0; // номер последнего положительного элемента
for (int i = 0; i < n; i++)
a[i] = rand() % 2001 - 1000; //заполняем массив числами от -1000 до 1000
cout << "Изначальный массив" << endl;
output(a, n);
for (int i = 0; i < n; i++) {
if (a[i] < 0) //если элемент отрицательный
{
count++; //считаем количество
sum += a[i]; //считаем сумму
}
if (a[i] > 0) //поиск последнего положительного
pos = i;
}
//перестановка первого элемента массива и последнего положительного
int temp = a[0];
a[0] = a[pos];
a[pos] = temp;
cout << "\nМассив после выполнения программы" << endl;
output(a, n);
cout << "\nСумма отрицательных элементов массива\n" << sum;
cout << "\nКоличество отрицательных элементов массива\n" << count;
delete[] a;
}

Условие большое, но задача простая.

Давайте для начала найдем общее количество символов в рукописи и объём рукописи.

Общее количество символов - k, k - произведение числа страница, на число строк, на число символов.

k = 2400 * 130 * 62 = 19344000

Каждый символ кодируется 8 битами, то есть, 1 байтом.

i = 1

I = 19344000 * 1 = 19344000 Байт = 18890.625 Кбайт = 18.447876 Мбайт

Каждая иллюстрация весит 4 мбайт, а их 400. 400 * 4 = 1600 Мбайт

1600 + 18.447876 = 1618 Мбайт

1618 Мбайт это меньше 4 Гигабайт, поэтому можно записать этот файл в несжатом виде.

Информационный объём рукописи с иллюстрациями равен приблизительное 1618 Мбайт, а без иллюстраций примерно 18 Мбайт.

var a: array [1..5] of integer;

i, j , count: integer;

repeated : boolean;

begin

   for i := 1 to 5 do

   begin

       write('Введите ', i, '-e число: ');

       readln(a[i]);

   end;

   for i := 1 to 5 do

   begin

       repeated := false;

       for j := 1 to i - 1 do

           if (a[i] = a[j]) then

               repeated := true;

       if repeated then continue;

       count := 1;

       for j:= i+1 to 5 do

           if (a[i]=a[j]) then

               inc(count);

       writeln('Число ', a[i], ' встречается ', count,' раз');

   end;

end.