Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 21.04.2013, 19:14   #1
Alexandr-
Пользователь
 
Регистрация: 04.03.2013
Сообщений: 79
По умолчанию язык си простые числа

Язык СИ.
Из массива Х(N) все положительные элементы записать в массив Y(k). Найти в каждом массиве среднее арифметическое простых элементов. В программе написать функции: формирования массива Y, определения среднего арифметического простых элементов.

В общем вопрос из задачи, как задать условия, чтобы находил простые числа в массиве?
Код:
#include <stdio.h>
#include <conio.h>
#include <stdlib.h>
int main () {
int i,N,k=0,count=0,sr; int X[100],Y[100]; 
srand(time(NULL));
printf ("vvedite razmer massiva\n");
scanf ("%d",&N);
 
for (i=0;i<N;i++) {
    X[i] = rand()%N-5; 
    printf ("%d ",X[i]); }
 
for (i=0;i<N;i++) {
    if (X[i]>0) Y[k++]=X[i];} 
 
printf ("\nmassiv 2\n");
for(i=0; i < k; i++)
{
 printf("%d ",Y[i]);
}
 
getch (); return 0; }
Alexandr- вне форума Ответить с цитированием
Старый 21.04.2013, 19:23   #2
Hemul
Форумчанин
 
Регистрация: 03.10.2010
Сообщений: 321
По умолчанию

Если число не делится нацело числами от двойки до корня из числа, то это число простое
Код:
int isPrimary = 1;
for(int i=2;i<=sqrt(number);i++)
   if(number%i ==0) //число делится без остатка
   {
       isPrimary = 0;
       break;
   }
Hemul вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Даны целые числа р и q. Получить все делители числа q, взаимно простые c г. Владан Паскаль, Turbo Pascal, PascalABC.NET 2 03.12.2012 23:39
Задачи в ТурбоПаскаль: найти числа Армстронга и просуммировать числа в последовательности номера которых простые числа Lena1808 Помощь студентам 1 17.05.2012 08:00
Простые числа kuy Паскаль, Turbo Pascal, PascalABC.NET 4 28.10.2011 14:44
Простые числа SanechekS Паскаль, Turbo Pascal, PascalABC.NET 6 05.04.2011 15:51
Простые числа anksunamun Паскаль, Turbo Pascal, PascalABC.NET 5 16.10.2009 20:03