Question

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

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.

Answer 2

Алгоритм для поиска количества простых чисел в заданном целочисленном массиве из 50 элементов на языке Pascal может выглядеть следующим образом:

1. Создать переменную count и инициализировать ее нулем. Она будет использоваться для подсчета количества простых чисел в массиве.

2. Создать цикл, который будет перебирать все элементы массива. Индекс этого цикла будет от 1 до 50.

3. Внутри цикла проверить, является ли текущий элемент массива простым числом. Для этого создать вспомогательную функцию isPrime, которая будет принимать на вход число и возвращать true, если число простое, и false в противном случае.

4. Внутри функции isPrime реализовать алгоритм проверки числа на простоту. Он может быть реализован, например, с помощью цикла, который будет перебирать все числа от 2 до корня из заданного числа и проверять, делится ли число на каждое из них без остатка. Если делится без остатка, то число не является простым и функция должна вернуть false. Если после проверки все числа, кроме самого числа и 1, не делили его без остатка, то функция должна вернуть true.

5. Внутри цикла, после проверки текущего элемента массива на простоту с помощью функции isPrime, если число является простым, увеличить переменную count на единицу.

6. После завершения цикла вывести значение переменной count, которое будет содержать количество простых чисел в массиве.

Вот пример реализации на языке Pascal:

program CountPrimes;

function isPrime(num: Integer): Boolean;
var
  i: Integer;
begin
  if num < 2 then
    Result := False
  else
  begin
    for i := 2 to Trunc(Sqrt(num)) do
    begin
      if num mod i = 0 then
      begin
        Result := False;
        Exit;
      end;
    end;
    Result := True;
  end;
end;

var
  arr: array[1..50] of Integer;
  count, i: Integer;
begin
  count := 0;

// Здесь заполняем массив arr данными

for i := 1 to 50 do
  begin
    if isPrime(arr[i]) then
      count := count + 1;
  end;

Writeln('Количество простых чисел в массиве: ', count);
end.

В данном примере алгоритм заполняет массив arr данными (вам нужно заменить комментарий на ваш код заполнения массива) и затем перебирает все его элементы, проверяя каждое число на простоту с помощью функции isPrime. Если число является простым, то увеличивает переменную count на единицу. В конце выводит количество простых чисел в массиве.