2. Задана последовательность N вещественных чисел. Вычислить сумму чисел, порядковые номера которых являются простыми числами.
Для отладки программы исходный массив сформировать с помощью генератора случайных чисел.
Код:
var
mass: array [1..100] of Real;
i, j: integer;
sum: Real;
begin
Randomize;
sum := 0;
for i := 1 to 100 do
begin
mass[i] := sqrt(Random(1000));
if (i > 3) then
begin
for j := 2 to i do
if (i mod j) = 0 then break;
if (j = i) then
begin
WriteLn('mass[', i, '] = ', mass[i]);
sum := sum + mass[i];
end
end
else
begin
WriteLn('mass[', i, '] = ', mass[i]);
sum := sum + mass[i];
end;
end;
WriteLn('sum = ', sum);
end.
mass: array [1..100] of Real;
i, j: integer;
sum: Real;
begin
Randomize;
sum := 0;
for i := 1 to 100 do
begin
mass[i] := sqrt(Random(1000));
if (i > 3) then
begin
for j := 2 to i do
if (i mod j) = 0 then break;
if (j = i) then
begin
WriteLn('mass[', i, '] = ', mass[i]);
sum := sum + mass[i];
end
end
else
begin
WriteLn('mass[', i, '] = ', mass[i]);
sum := sum + mass[i];
end;
end;
WriteLn('sum = ', sum);
end.