до
не пишите фигню это надо
простите половина не влезла

Function P(A:integer):boolean;
Var d,K:integer;
Begin
P:=true;
if A < 2 then P:=false
else
   if A > 3 then
      if A mod 2 = 0 then P:=false
      else
         Begin
         K:=Trunc(Sqrt(A));
         d:=3;
         While d <= K do
            Begin
            if A mod d = 0 then P:=false;
            d:=d+2
            End;
         End;
End;
Var
   A,n:integer;
   S:real;
Begin
S:=0;
Write('n = ');ReadLn(n);
Write('Введите n чисел: ');
For n:= 1 to n do
    Begin
    Read(A);
    if P(A) then S:=S+A;
    End;
Write('S = ',S)
End.

#include <iostream>

using namespace std;

int main()
{
    setlocale(LC_ALL, "RUSSIAN");
    const int arr_len=20;
    int arr[arr_len];
    int i = 0;
    srand(8120);
    for (i = 0; i < arr_len; i++)
    {
        arr[i] = rand() % 100;
        cout << arr[i] << ' ';
    }
    cout << endl;
    int min = 100, min_index=arr[0];
    for (i = 0; i < arr_len; i++)
    {
        if (arr[i] < min)
        {
            min = arr[i];
            min_index = i;
        }
    }
    cout << "Минимальный элемент массива: " << min << endl;
    cout << "Его индекс: " << min_index << endl;
    system("pause");
}