На метеопосту за период наблюдения в n дней была получена таблица величины атмосферного давления. записать программу, которая: а)определяет максимальный, минимальный по величине элементы массива и номера соответствующих им дней в массиве; б)определяет среднее значение давления за время наблюдения; в)подсчитывает количество дней, в которые давление превышало заданную величину d; г)сортирует массив по возрастанию; д)выводит исходный, массив и результаты вычислений. для откладки программы исходный массив сформировать с функции rnd. величину давления брать 760± а , где а=.

//PascalABC.NET 3.1 сборка 1219
begin
    var a := ArrRandomInteger(ReadInteger('n ='), 760, 780);
    a.Println;
    Writeln('Max = ', a.Max, ' №', a.IndexMax + 1);
    Writeln('Min = ', a.Min, ' №', a.IndexMin + 1);
    Writeln('Avg = ', a.Average);
    var d := ReadInteger('d =');
    Writeln('Count(x > ', d, ') = ', a.Where(x -> x > d).Count);
    a.Sort;
    a.Println;
end.

Слишком индивидуальный вопрос, у каждого своё мнение. Ну так уж и быть, напишу своё. Перспектива безусловно есть, ибо если вспомнить то, что было 10 лет назад, то явно можно сказать, что IT индустрия поднялась очень высоко. Могу описывать всё по отдельности, но зачем это всё нужно, напишу про самую главную часть - интернет. Само собой, это будет нечто большее, нежели сегодня. Все сайты и сервисы будут тесно завязанны социальными сетями, вплоть до кредитных карт.
Очень медленно, но уже практически все перейдут на IPv6, тем самым расширяя сеть до бесконечности. Внешний адрес теперь будет практически у каждого устройства, включенного в сеть. 
Поисковые машины, с развитием кибернетики станут умнее, ранжировка поисковых запросов станет намного эффективнее, находить информацию станет всё проще и быстрее. Такие вещи, как голосовой поиск, станут более популярны и эффективны. И это только интернет. Но есть и другая сторона медали. Паспорта и даже ваши данные - всё это, через каких-то 10-15 лет полностью уйдут в сеть, а обычному человеку ничего не останется, как доверять третьим лицам. Тоесть об анонимности можно забыть.

// PascalABC.Net 3.2
begin
  var a:=ArrRandom(15,10,30).Select(x->x+0.1); Write('A='); a.Println;
  var b:=ArrRandom(12,10,30).Select(x->x+0.1); Write('B='); b.Println;
  var c:=a.Intersect(b).ToArray;
  Write('C='); c.Println;
  a:=a.Except(c).ToArray; Write('A новый='); a.Println;
  b:=b.Except(c).ToArray; Write('B новый='); b.Println
end.

Пример решения
A=15.1 25.1 29.1 24.1 16.1 29.1 18.1 13.1 10.1 12.1 10.1 13.1 14.1 18.1 24.1
B=24.1 10.1 23.1 15.1 13.1 16.1 22.1 21.1 21.1 28.1 26.1 29.1
C=15.1 29.1 24.1 16.1 13.1 10.1
A новый=25.1 18.1 12.1 14.1
B новый=23.1 22.1 21.1 28.1 26.1