Pascal . Дан массив вещественных чисел. Найти сумму элементов, номера которых являются простыми числами

const
n = 10;

var
mass: array[1..n] of real;
i: integer;
tmp: real;

function prostoe(a: integer): boolean;
var
j: integer;
flag: boolean;
begin
for j:=2 to a-1 do
if (a mod j) = 0 then
result:=true;
end;

begin
for i:=1 to n do
readln(mass[ i ]);
for i:=1 to n do
if prostoe(i) then tmp:=tmp+mass[ i ];
writeln(floattostr(tmp));
readln;

Может ругаться на функцию при a=1, не проверял. Сами исправите

Есть информация, что ответ выше не очень -_-. Речь идет не о элементах как простых числах, а о номерах массива, как простых числах. Внимательнее надо быть

Вещественное число — математическая абстракция, возникшая из потребности измерения геометрических и физических величин окружающего мира, а также проведения таких операций как извлечение корня, вычисление логарифмов, решение алгебраических уравнений.

Так сказано в википедии.

Простыми словами: вещественное число — не есть целое число.

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Просто́е число́ — это натуральное число, имеющее ровно два различных натуральных делителя: единицу и само себя. Все остальные натуральные числа, кроме единицы, называются составными.

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Вывод: вещественное число не может быть простым или составным из своего определения!

Читаете массив. Потом перебираете элементы. В строке if (i mod j) = 0 then заменяете И на a[ i ] (то есть элемент массива).

Jurii, индексы массива - целые числа. Нужно проверить индексы элементов на простые числа, а не их значения