1. Какие команды нужно выполнить для создания нового файла? 2. Какова важность управления настройками изображения?
3. Сколько групп инструментов графического редактора можно
выделить?
4. Как управлять цветами в графическом редакторе?
5. От какого параметра зависит качество изображения?​

#include <iostream>

#include <cstdlib>

#include <ctime>

typedef int datatype;

void init_array(datatype* arr, int SIZE)

{

   for (int i = 0; i < SIZE; ++i)

       arr[i] = rand() % 100;

}

void show_array(datatype* arr, int SIZE)

{

   std::cout << "array: ";

   for (int i = 0; i < SIZE; ++i)

       std::cout << arr[i] << " ";

   std::cout << "\n";

}

datatype find_sum(datatype* arr, int SIZE)

{

   datatype sum = 0;

   for (int i = 0; i < SIZE; ++i)

       sum += arr[i];

   return sum;

}

int main()

{

   std::cout << "enter a size of the array: ";

   int SIZE;

   std::cin >> SIZE;

   datatype *arr = new datatype[SIZE];

   srand(time(NULL));

   init_array(arr, SIZE);

   show_array(arr, SIZE);

   std::cout << "sum of elements: " << find_sum(arr, SIZE) << "\n";

   delete[] arr;

   return 0;

}

//PascalABC.Net 3.1.0.1200
uses System;
var
    title: array[2..5]of string := ('Неудовлетворительно', 'Удовлетворительно', 'Хорошо', 'Отлично');

begin
    writeln('Введите оценки');
    var marks := new Dictionary<integer, integer>();
    
    repeat
        var n := ReadInteger();
        if (n > 5) or (n < 2) then continue;
        
        if marks.ContainsKey(n) then
            marks[n] += 1
        else marks.Add(n, 1);
    until marks.Values.Sum >= 10;
    
    for var i := 2 to 5 do
        writeln(title[i], ': ', marks[i]);
end.