Найти элементы, являющиеся простыми числами

@жкх · Регистрация: 03.12.2015

Author24 — интернет-сервис помощи студентам

Дан массив из 25 целых различных чисел из диапазона [0,40). Найти в нем все элементы, являющиеся простыми числами.

@Cyborg Drone · 07.01.2016, 21:28

Pascal

const m = 25;
 
var a: array [1..m] of integer;
    i: integer;
    b: boolean;
 
begin
  randomize;
  writeln('Массив:');
  for i := 1 to m do
    begin
      a[i] := random(41);
      write(a[i]:3)
    end;
  writeln;
  b := false;
  writeln('Простые числа:');
  for i := 1 to m do
    if a[i] in [2, 3, 5, 7, 11, 13, 17, 19, 23, 29, 31, 37]
      then begin
        write(a[i]:3)
        b := true;
      end;
  if b then write('Не найдены.');
  writeln;
  readln
end.

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

- Замените

Pascal

19	if IsPrime(a[i])

- Вставьте выше слова const функцию IsPrime, взять её можно, например, отсюда: Алгоритм, который устанавливает – является ли число простым, ну, или ещё откуда-нибудь, главное, чтобы функция компилировалась в Вашем диалекте паскаля.

@жкх 0 / 0 / 0 Регистрация: 03.12.2015 Сообщений: 22
		1
	Найти элементы, являющиеся простыми числами 07.01.2016, 20:10. Показов 1715. Ответов 1 Метки нет (Все метки) Дан массив из 25 целых различных чисел из диапазона [0,40). Найти в нем все элементы, являющиеся простыми числами. 0

	07.01.2016, 21:28

Найти элементы, являющиеся простыми числами

Решение