Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
mashabrown
0 / 0 / 0
Регистрация: 10.01.2016
Сообщений: 13
1

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

10.01.2016, 16:01. Просмотров 983. Ответов 2
Метки нет (Все метки)

Дан массив из 25 целых различных чисел из диапазона [0,40). Найдите в нем все элементы, являющиеся простыми числами.
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
10.01.2016, 16:01
Ответы с готовыми решениями:

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

Найдите в одномерном массиве элементы сумма которых максимальна
найдите в одномерном массиве элементы сумма которых максимальна затем удалите...

Дан массив натуральных двузначных чисел. Проверить, все ли его элементы являются простыми числами.
составить программу для решения задач: 5. Дан массив натуральных двузначных...

Найти элементы одномерного массива из N элементов, являющиеся простыми числами
В целочисленном одномерном массиве из N(N\geq 50)элементов есть только один...

В одномерном массиве из натуральных чисел определить количество элементов, являющихся простыми числами
Ребята, помогите решить практическую. 1. В одномерном массиве из натуральных...

2
Xo6ut
101 / 88 / 75
Регистрация: 04.11.2011
Сообщений: 1,785
10.01.2016, 16:41 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
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.
0
mashabrown
0 / 0 / 0
Регистрация: 10.01.2016
Сообщений: 13
10.01.2016, 17:19  [ТС] 3
спасибо большое))
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
10.01.2016, 17:19

Вывести все элементы последовательности, являющиеся трехзначными числами, кратными семи
Напишите программу обработки последовательности целых чисел. На вход программе...

В одномерном массиве (в массиве n элементов) удалить все элементы стоящие между минимальным положительным и максимальным отрицательным элементом
Добрый вечер!) Помогите с задачкой: В одномерном массиве (в массиве n...

В одномерном массиве исключить все элементы
В одномерном массиве исключить все элементы, содержащие повторяющиеся цифры и...


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

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2019, vBulletin Solutions, Inc.
Рейтинг@Mail.ru