Задана последовательность из N вещественных чисел. Вычислить сумму чисел, порядковые номера которых являются простыми числами.
Вопрос посетителя
Задана последовательность из N вещественных чисел. Вычислить сумму чисел, порядковые номера которых являются простыми числами.
Ответ эксперта
uses crt;
const n=5;
var a:array[1..n] of real;
i,j,k:integer;
sum:real;
begin
clrscr;
randomize;
writeln(‘Posledovatelnost:’);
for i:=1 to n do
begin
a[i]:=10*random;
write(a[i]:4:1);
end;
writeln;
sum:=0;
for i:=2 to n do //начинаем с 2
begin
k:=0;
for j:=2 to round(sqrt(i)) do //смотрим каждое число до его корня, дальше нет смысла, делителей нет
if i mod j=0 then inc(k);//считаем делители
if k=0 then sum:=sum+a[i];//если делителей нет, считаем сумму
end;
write(‘Summa=’,sum:0:1);
readln
end.
