Практикума для 10-11 классов по информаткие и ИКТ: Работа 16.5 Программирование обработки массивов Задача 9
Решаем задачи из Практикума для 10-11 классов (автор Семакин И.Г. и др)
Задача 9 с.61
Задана последовательность из вещественных чисел. Вычислите сумму чисел, порядковые номера которых являются простыми числами.
Решение (PascalABC.net)
const N=20;
var A: array[1..N] of real;
kdel,j, i:integer;
S:real;
begin
writeln('Дан массив А');
for i:=1 to N do
begin
A[i]:=random(50);
write(A[i],' ');
end;
writeln;kdel:=1; for i:=2 to N do begin for j:=2 to i div 2 do if i mod j=0 then kdel:=kdel+1; if kdel=1 then begin S:=S+A[i]; Write('A[',i,']=',A[i],' ') end; kdel:=1 end; | writeln; for i:=2 to N do begin kdel:=1; for j:=2 to i do if i mod j=0 then kdel:=kdel+1; if kdel=2 then begin S:=S+A[i]; Write('A[',i,']=',A[i],' ') end; end; |
writeln;
writeln('S=',S)
end.
Результат работы программы
Дан массив А
3 18 17 34 20 3 1 14 30 38 47 39 13 40 44 27 40 24 5 37
A[2]=18 A[3]=17 A[5]=20 A[7]=1 A[11]=47 A[13]=13 A[17]=40 A[19]=5
S=161
В 2 столбца записаны разные варианты поиска простых индексов.
Возможно, есть и другие решения этой задачи
