Работа 3.6 Упр.9 ГДЗ Семакин 10 класс (Информатика)

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

Нужно просуммировать элементы массива, стоящие на простых местах: $$2, 3, 5, 7, 11, \dots$$

Для этого удобно написать функцию, которая проверяет, является ли число простым. Затем в цикле перебрать все элементы массива и добавить к сумме только те, у которых номер элемента — простое число.

var
  a: array[1..100] of Real;
  i, n: Integer;
  s: Real;

function IsSimple(n: Word): Boolean;
var k: Integer;
begin
  IsSimple := True;
  if n <= 2 then Exit;
  for k := 2 to Round(Sqrt(n)) do
    if n mod k = 0 then
    begin
      IsSimple := False;
      Break;
    end;
end;

begin
  Randomize;
  Readln(n);
  for i := 1 to n do
  begin
    a[i] := Random(20) + Random(100) / 100 — 10;
    write(a[i]:6:2);
  end;
  writeln;
  s := 0;
  for i := 1 to n do
    if IsSimple(i) then
      s := s + a[i];
  writeln(‘Сумма равна ‘, s:8:2);
  Readln;
end.

В программе функция IsSimple проверяет, простое ли число n. Если номер элемента простое число, соответствующее значение массива прибавляется к сумме s.

Ответ: сумма элементов с простыми номерами находится перебором массива и сложением только тех элементов, для которых номер является простым числом.