Question

Задана последовательность из N вещественных чисел. Вычислить сумму чисел, порядковые номера которых являются простыми числами.

Answer 1

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.