Найти сумму элементов массива, которые являются простыми числами и принадлежат сегменту [5,1000]

19.06.2014, 14:22. **Показов** 1510. **Ответов** 2

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

дан одномерный целочисленный массив A состоящий из N элементов, N - заданное натуральное число. Найти сумму элементов массива А, которые являются простыми числами и принадлежат сегменту [5,1000].
Пожалуйста помогите!)

@erl27 · 19.06.2014, 14:42

Pascal

function IsPrime(j: integer): boolean;
var
  k: integer;
begin
  if j < 2 then result := false
  else
  if j = 2 then result := true
  else
  if odd(j + 1) then result := false
  else 
  begin
    k := 3;
    result := true;
    while k * k <= j do 
      if j mod k <> 0 then inc(k, 2)
      else begin result := false; break end
  end
end;
 
var
  A: array[1..100] of integer;
  i, N: byte;
  S: integer;
  
begin
  write('Введите количество элементов массива: ');
  readln(N);
  S := 0;
  for i := 1 to N do begin
    a[i] := random(20000); //случайные целые числа 
    write(' ', a[i]);
    if IsPrime(a[i]) and (a[i] > 4) and (a[i] < 1001) then S := S + a[i]
  end;
  writeln;
  writeln('Результат: ', S)
end.

@Sergio Leone · 19.06.2014, 15:15

Годный код!

Сообщение от erl27

Pascal

1	if odd(j + 1) then result := false

зачем? на мой взгляд

Pascal

1	if not odd(j) then...

и проще и понятней и эффективней.

а ещё, имхо, удобно сразу выходить из функции, если условие простоты нарушено.
ну, типа:

Pascal

1
2
3

  result := false;
  if j < 2 then Exit;
....

p.s. но вообще, мне мой вариант функци всё равно больше нравится!

Альберт911
		1
	Найти сумму элементов массива, которые являются простыми числами и принадлежат сегменту [5,1000] 19.06.2014, 14:22. Показов 1510. Ответов 2 Метки нет (Все метки) дан одномерный целочисленный массив A состоящий из N элементов, N - заданное натуральное число. Найти сумму элементов массива А, которые являются простыми числами и принадлежат сегменту [5,1000]. Пожалуйста помогите!)

	19.06.2014, 15:15

Найти сумму элементов массива, которые являются простыми числами и принадлежат сегменту [5,1000]

Решение