Автор - Pakulov7

Дан одномерный массив R (4,2,3,1,5,1,2,7,6)
Найти:
1. Количество элементов >5
2. Количество элементов <5
3. Максимальный элемент и его номер
4. Получить новый массив по правилу( фото ниже)
5. Сортировка по возрастанию (напечатать массив в строчку)
Помогите пожалуйста

Ответ

Автор - BobbyFresnel

begin

 var R := Arr(4.0, 2.0, 3.0, 1.0, 5.0, 1.0, 2.0, 7.0, 6.0);

 Println('Сумма элементов >5:', R.Where(p -> p > 5).Sum);

 Println('Кол-во элементов <5:', R.Count(p -> p < 5));

 var imax := R.IndexMax;

 $'Максимальный элемент R[{imax+1}]={R[imax]}'.Println;

 R.Transform(p -> p > 4 ? Sin(p - 1) : Sqr(Cos(p + 1)));

 R.Println.Sorted.Println

end.

Ответы и объяснения

Сервис носит ознакомительный характер, вся информация, а в частности вопросы и ответы, которые задают и отвечают пользователи.
© 2026 Все права защищены Политика конфиденциальности Контакты
search points attachment profile arrow left arrow right star heart verified symbols equation arrow-down question mark check menu accountancyadministrationagriculturalalgebraallarabicartart_musicbelarusbelarus_altbiologybusinesscatalachemistrychineseeconomicsegzamenglishentrepreneurshipenvironmentethicseuskarafirst_aidfrenchgalegogeographygeologygeometrygermangrammarhealthhistoryindia_langindonesian_langinformaticsitalianjapanesekazachkazach_altkoreanlanguagelatinlawlife_scienceliteraturelogicmathematicsmusicnigerian_langother_languagesotherspedagogicsphilosophyphysical_educationphysicspoliticspsychologyreligionrpa_langrussianrussian_altsciencesecurityskillssocial_sciencesociologyspanishstatisticstechnologytourismtrafficukrainianukrainian_altukrainian_literaturewos_civilisation accountancyadministrationagriculturalalgebraall_1arabicartart_music_2belarusbelarus_altbiologybusiness_2catalachemistry_1chineseeconomicsexam_3englishentrepreneurshipenvironment_2ethicseuskarasecurity_1frenchgalegogeography_4geology_4geometrygermangrammarhealthhistoryindia-langindonesian-langinformaticsitalianjapanesekazachAsset 230koreanlanguagelatinlawlife-scienceliteraturelogic_2mathematicsmusicnigerian-langotherlanguagesother_1pedagogicsphilosophyphysical_educationphysicspoliticspsychologyreligion_1rpa-langrussianrussian_altsciencesecurity_3_mskills_1allsocial_science_5_msociologyspanishstatisticstechnologytourismtrafficukrainianukrainian_altukrainian_literaturewos_civilisation