за правильное решение на языке Pascal
1. Дан вектор Х из М целых чисел(0 < M < 97 ; - 1000 < X [i] < 100). Наити максимальное из чисел встречающееся в данном массиве более 1 раза.
2. Дан одномерный целочисленный массив А состоящий из N элементов. N заданное натуральное число. Найти количество элементов, превосходящих сумму элементов и являющихся простыми числами.

// PascalABC.NET 3.3, сборка 1561 от 02.11.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandom(ReadInteger('n='),-99,99).ConvertAll(x->real(x/10));
  a.Println;
  var imax:=a.Select(x->Abs(x)).ToArray.IndexMax;
  var ip:=a.FindIndex(x->x>0)+1;
  Writeln('Номер максимального по модулю элемента: ',imax+1);
  Writeln('Сумма элементов после первого положительного: ',a[ip:].Sum:0:1)
end.

Пример
n= 13
-5.9 2.8 -8.2 4.8 1.2 -7.3 6.7 4 -5.8 6.4 2.4 -9.3 -8.6
Номер максимального по модулю элемента: 12
Сумма элементов после первого положительного: -13.7

#include <cstdlib>
#include <cmath> //подключаем библеотеку с функцией pow
#include <iostream>//имеющиеся модули

using namespace std;//пространство имен

int main() {
int a, b;// ввод переменных
cin >> a >> b;// ввод на клавиатуре a = pow(a, 2);//возводим a в степень 2
printf("a=%d ", a);//выводим новые значения a 
if (b < 0) {
printf("не возможно подсчитать "); //проверка (подкоренное выражение не отрицательно)

} else {
b = pow(b, 0.5);//возводим b в степень 0.5(корень квадратный)
printf("b=%d ", b);//выводим новые значения b
}
system("pause");//ставит программу на паузу
return 0;// говорит системе что все закончилось успешно