Запишите ** естественном языке алгоритм, выполняющий поиск количества простых чисел в...

Question

Запишите на естественном языке алгоритм, выполняющий поиск количества простых чисел в заданном целочисленном массиве из 50 элементов.
Pascal

Comments

Оп-па! Обнуляем счетчик. Каждое число из массива проверяем на простоту по алгоритму Евклида. Если оно простое, добавляем +1 в счетчик. В конце значение счетчика выводим.

Answer 1

const N=50;
var a : array [1..N] of boolean;
x,y, sim : integer;
begin 

sim:=0;
a[1] := false;
for x:=2 to N do a[x] := true;
 for x:= 2 to N div 2 do
    for y:= 2 to N div x do
      a[x*y] := false;
 for x:=1 to N do
     if a[x] then sim:=sim+1;
writeln(sim);
end.

Comments

а не легче ли найти все простые числа

---

const N=50;
var a : array [1..N] of boolean;
x,y, sim : integer;
begin 

sim:=0;
a[1] := false; 
for x:=2 to N do a[x] := true;
 for x:= 2 to N div 2 do
    for y:= 2 to N div x do
      a[x*y] := false;
 for x:=1 to N do
     if a[x] then writeln(x);
end.

---

так будут все простые числа

---

Все простые найти не легче, потому что эти 50 элементов массива могут содержать значения в весьма большом диапазоне.

---

Поэтому придется найти сначала значение максимального элемента, потом создать массив всех простых чисел в диапазоне от 1 до найденного максимума и для каждого элемента исходного массива проверять, не содержится ли он в массиве простых. Т.е. считать будет быстрее, но код окажется существенно бОльшим.