Надеюсь на ! напишите программу которая задает массив из 15 элементов случайным образом на интервале от -40 до 90, программным обеспечением является число простым или нет на некоторых позициях и задает взаимообратное число для найденых простых чисел.
begin
readln(x);
if frac(x)=0 then
writeln('Число целое')
else
writeln('Число является дробью');
end.