Напишите программу в pascalabc

Смотри. 1. Ни Климов, ни Ушаков не умеют играть ни на одном музыкальном инструменте. Следовательно, они не учителя музыки. 2.  Учителя рисования и информатики в воскресенье уезжают на дачу к Михеенко. Следовательно, Михеенко не учитель рисования и информатики. 3. Жебин попросил учителя рисования написать картины с его изображением и изображением Климова. Следовательно, Жебин и Климов не учителя рисования. Из этого следует, что учитель рисования - Ушаков. 4. Учителя рисования и информатики в воскресенье уезжают на дачу к Михеенко. Раз учитель рисования Ушаков, а он не знаком с Климовым, значит Климов не учитель информатики, а учитель матеметики. Михеенко - учитель музыки, а Жебин учитель информатики.

Код:

#include <iostream>

using namespace std;

int main()

{

   int n,i,max,j,count=0,sum=0;

   cout << "n = ";

   cin >> n;

   int array[n];

   for (i=0;i<n;i++)

   {

       cin >> j;

       if (j>1000000)

       {

           cout << "Элемент массива превосходит 1000000";

           break;

       }

       else

       {

           array[i] = j;

           sum += j;

       }

   }

   max = array[0];

   for (i=1;i<n;i++)

   {

       if (array[i]>max)

       {

           max = array[i];

       }

   }

   for (i=0;i<n;i++)

   {

       if (array[i] == max)

       {

           count++;

       }

   }

   if (count > 1)

   {

       sum -= count*max;

       cout << "Сумма элементов массива без максимальных: " << sum;

   }

   else

   {

       sum -= max;

       cout << "Сумма элементов массива без максимального: " << sum;

   }

}  

Вывод:

n = 5                                                                                                                          

1 2 5 3 5                                                                                                                      

Сумма элементов массива без максимальных: 6  

1 + 2 + 3 = 6

n = 5                                                                                                                          

1 2 3 4 5                                                                                                                      

Сумма элементов массива без максимального: 10      

1 + 2 + 3 + 4 = 10