• Помогите написать программу в Pascal!
    Дан одномерный
    целочисленный массив А, состоящий из N элементов, N- заданное натуральное число, пусть max- наибольшее, min- наименьшее
    значения среди элементов массива. Составить одномерный массив В из простых
    чисел и сегмента [min,max],которые не являются элементами массива А, записав его
    элементы в порядке неубывания. Если таких элементов нет, то выдать соответствующее
    текстовое сообщение. 

Ответы 5

  • k:=1;//счетчик индеса для В. Надо описать его в varfor j:=min to max do if(prime(j)) then begin//если не простое, то переходим к следующему p:=0;//признак того, что этого числа в С нет for i:=1 to n do if j=c[i] then p:=1;//признак того, что число в С есть if p=0 then b[k]:=j;//если в С его нет, заносим его в В inc(k); end;end;
    • Автор:

      nina83
    • 6 лет назад
    • 0
  • И определение простоты числа какая-то сложная функция. Можно проще:
    • Автор:

      ashanti
    • 6 лет назад
    • 0
  • function prime(a:integer):boolean; //функция определяет, является ли число простымvar i:integer;beginprime:=true;for i:=2 to (a div 2) do if a mod i=0 then prime:=false;end;
  • да я любитель помудрить)
    • Автор:

      blackjack
    • 6 лет назад
    • 0
  • вообще, логичное решение выше, сейчас, к сожалению, проверить не могу, но спасибо:)
    • Автор:

      day
    • 6 лет назад
    • 0
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years