Найти наибольший составной элемент одномерного массива

@ia-12 · Регистрация: 04.12.2014

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

составьте программу нахождения наибольшего составного элемента одномерного целочисленного массива A(N)

@Joy · 14.04.2015, 13:20

ia-12, поясните что такое составной элемент

@ia-12 · 14.04.2015, 13:21 **[ТС]**

число, которое имеет минимум 3 делителя

@Joy · 14.04.2015, 13:25

ia-12, массив руками заводится или генерируется?

@ia-12 · 14.04.2015, 13:26 **[ТС]**

генерируется

@Joy · 14.04.2015, 13:49

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
uses System.Linq;
var
  a:array of integer;
  n:integer;
function IsSost(n:integer):boolean;
var
  i,k:integer;
begin
  result:=false;
  if n>3 then for i:=2 to round(sqrt(n)) do 
    if n mod i=0 then begin result:=true;break;end;
end;  
begin
  randomize;
  write('n=');readln(n);
  a:=Enumerable.Range(1,n).Select((i:integer)->random(100)).ToArray;
  write('массив:',a);
  write('Максимальное составное число:',a.Where((i:integer)->IsSost(i)).Max());
end.

@volvo · 14.04.2015, 15:40

Для проверки простоты числа использовал Any (поиск любого из делителей, на который число делится нацело)

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
{$reference System.Core.dll}
uses System.Linq, Arrays;
 
var 
  num : integer;
  
function save(i : integer) : integer;
begin num := i; result := num; end;
function IsDivides(n : integer) : boolean;
begin result := num mod n = 0 end;
 
var
  a : array of integer;
  n : integer;
 
begin
  randomize;
  write('n=');readln(n);
  a:=Enumerable.Range(1,n).Select((i:integer)->random(100)).ToArray();
  write('массив:'); a.Writeln(' ');
  write('Максимальное составное число:',
    a.Select(save).Where((v : integer) -> Enumerable.Range(2, num - 2).Any(IsDivides)).Max());
end.

(если бы PABC.NET поддерживал локальные переменные в анонимных функциях - было бы гораздо компактнее)

Новые блоги и статьи Все статьи Все блоги /
Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .	SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .	SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .
Реалии Hrethgir 01.03.2026 Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .	Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .	SDL3 для Web (WebAssembly): Сборка библиотек: SDL3, Box2D, FreeType, SDL3_ttf, SDL3_mixer и SDL3_image из исходников с помощью CMake и Emscripten 8Observer8 27.02.2026 Недавно вышла версия 3. 4. 2 библиотеки SDL3. На странице официальной релиза доступны исходники, готовые DLL (для x86, x64, arm64), а также библиотеки для разработки под Android, MinGW и Visual Studio. . . .	SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .

@ia-12 0 / 0 / 0 Регистрация: 04.12.2014 Сообщений: 16

	Найти наибольший составной элемент одномерного массива 14.04.2015, 12:50. Показов 1058. Ответов 6 Метки нет (Все метки) составьте программу нахождения наибольшего составного элемента одномерного целочисленного массива A(N) 0

@Joy 2388 / 1300 / 1492 Регистрация: 29.08.2014 Сообщений: 4,665
	14.04.2015, 13:20
	ia-12, поясните что такое составной элемент 0

@ia-12 0 / 0 / 0 Регистрация: 04.12.2014 Сообщений: 16
	14.04.2015, 13:21 [ТС]
	число, которое имеет минимум 3 делителя 0

@Joy 2388 / 1300 / 1492 Регистрация: 29.08.2014 Сообщений: 4,665
	14.04.2015, 13:25
	ia-12, массив руками заводится или генерируется? 0

@ia-12 0 / 0 / 0 Регистрация: 04.12.2014 Сообщений: 16
	14.04.2015, 13:26 [ТС]
	генерируется 0