Дана матрица m(4*4 определить количество особых элементов массива. элемент считается особым, если он больше суммы остальных элементов своего столбца.

Var
  M: array [1 .. 4, 1 .. 4] of integer;
  i, j, k, sum: integer;
  count: byte;

begin
  for i := 1 to 4 do
  begin
    for j := 1 to 4 do
    begin
      M[i, j] := random(16);
      write(M[i, j]:4);
    end;
    writeln;
  end;

  for i := 1 to 4 do
  begin
    sum := 0;
    for j := 1 to 4 do
      sum := sum + M[j, i];
    for j := 1 to 4 do
      if (M[j, i] > sum - M[j, i]) then
        Inc(count);
  end;
  writeln('Количество особых элементов = ', count);

end.

Для целей настоящего Закона указанные ниже термины имеют следующее значение: 

автор - физическое лицо, творческим трудом которого создано произведение; 

аудиовизуальное произведение - произведение, состоящее из зафиксированной серии связанных между собой кадров (с сопровождением или без сопровождения их звуком), предназначенное для зрительного и слухового (в случае сопровождения звуком) восприятия с соответствующих технических устройств; аудиовизуальные произведения включают кинематографические произведения и все произведения, выраженные средствами, аналогичными кинематографическим (теле- и видеофильмы, диафильмы и слайдфильмы и тому подобные произведения), независимо от их первоначальной или последующей фиксации; 

база данных - объективная форма представления и организации совокупности данных (статей, расчетов и так далее), систематизированных таким образом, чтобы эти данные могли быть найдены и обработаны с компьютера; 

воспроизведение произведения - изготовление одного или более экземпляров произведения или его части в любой материальной форме, в том числе в форме звуко- и видеозаписи, изготовление в трех измерениях одного или более экземпляров двухмерного произведения и в двух измерениях - одного или более экземпляров трехмерного произведения; запись произведения в память компьютера также является воспроизведением; 

воспроизведение фонограммы - изготовление одного или более экземпляров фонограммы или ее части на любом материальном носителе; 

запись - фиксация звуков и (или) изображений с технических средств в какой-либо материальной форме, позволяющей осуществлять их неоднократное восприятие, воспроизведение или сообщение.

#include <iostream>
#include <Time.h>
using namespace std;

int main()
{
    int n, i, k;

    cout << "Kolichestvo chisel = ";
    cin >> n;

    srand(time(0));
    int *a = new int[n];

    for (int i = 0; i < n; i++)
    {
        a[i] = rand() % 56 - 10;
        cout << a[i] << " ";
    }
    int min = a[0];

    for (i = 0; i<n; i++)
    if (min>a[i]) {
        min = a[i];
        k = i;
    }

    cout << endl << endl;
    cout << "Min = " << min << endl << "i = " << k << endl;

    system("pause");
    return 0;
}