В одномерном массиве найти первое простое число - Turbo Pascal

Turbo Pascal

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Рейтинг 4.73/11:

@Максим098 0 / 0 / 0 Регистрация: 26.02.2017 Сообщений: 115

	В одномерном массиве найти первое простое число 14.04.2017, 12:28. Показов 2125. Ответов 1 Метки нет (Все метки) Дан одномерный числовой массив. Найти первое простое число этого массива 0

Лучшие ответы (1)

Сообщение: #10330441

cpp_developer

Эксперт

20123 / 5690 / 1417

Регистрация: 09.04.2010

Сообщений: 22,546

Блог

14.04.2017, 12:28

Ответы с готовыми решениями:

В одномерном массиве из 50 элементов в диапазоне от 500 до 1000 найти максимальное простое число
Привет всем! Нужно доделать программу в паскале. Заранее огромное спасибо! Вот сама задача: В одномерном массиве из 50 элементов в...

Выяснить каким по счету стоит первое число 3 в одномерном массиве.
Ребята, помогите студенту в решении задания на массивы. Нужно написать программу и составить блог схему! Заранее Всем буду благодарен! ...

Найти первое простое число, больше заданного n
Напишите, пожалуйста программу: Найти первое простое число, больше заданного n

VladimirD

80 / 80 / 78

Регистрация: 30.12.2015

Сообщений: 256

14.04.2017, 13:03

Сообщение было отмечено Максим098 как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
program Project1;
  const m=100;
var a:array [1..m] of integer;
  j,id,i:integer;
begin
  randomize;
  for j:=1 to m do a[j]:=random(1000);
 
  for j:=1 to m do begin
    id:=0;
    for i:=1 to a[j] do if a[j] mod i =0 then inc(id);
    if id=2 then break;
  end;
  writeln('первое простое число =',a[j]); 
end.

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.

raxper

Эксперт

30234 / 6612 / 1498

Регистрация: 28.12.2010

Сообщений: 21,154

Блог

14.04.2017, 13:03

Помогаю со студенческими работами здесь

Найти первое отрицательное число в массиве
Думаю что он легкий, а решить не могу( не умею решать их) ( В массиве чисел А1 А2......Аn найти первое отрицательное число и напечатать...

Найти в одномерном массиве чётное число
program z4; uses crt; var a:array of integer; i,k,n:integer; begin clrscr; write('vvedit n='); readln(n); writeln('vvedit...

В целочисленном массиве найти первое число, принадлежащее отрезку[-2;5]
Через while. В целочисленном массиве найти первое число, принадлежащее отрезку .

В целочисленном массиве найти первое с конца нечётное число
в целочисленном массиве найти первое с конца не чётное число

В целочисленном массиве найти первое с конца нечетное число (цикл while)
В целочисленном массиве найти первое с конца нечетное чило Через while

Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:

Новые блоги и статьи Все статьи Все блоги /
Мысли в слух. Про "навсегда". kumehtar 16.04.2026 Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .	My Business CRM MaGz GoLd 16.04.2026 Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .	Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.	Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .
Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .	Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .	Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .	Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .

Наверх