Автор - elizavetaposledova25

1. Заполнить массив из 10 целых элементов случайными числами из диапазона от -15 до 15 Обеспечить
вывод исходного массива на экран. Подсчитать сумму положительных элементов массива.
2. Дан массив из 15 целых элементов. Обеспечить заполнение массива с клавиатуры. Преобразовать
массив: всем нечетным элементам присвоить значение 1 Обеспечить вывод получившегося массива
на экран.
3. Дан массив из 10 вещественных элементов. Обеспечить заполнение массива с клавиатуры.
Подсчитать среднее арифметическое положительных элементов массива.

Ответ

Автор - contrlc

//PascalABC.NET 3.4.2

1.

begin

 write(arrrandom(10, -15, 15).Println.Where(x -> x > 0).Sum);

end.

2.

begin

 readarrinteger(15).Select(x -> x mod 2 <> 0 ? 1 : x).Println;

end.

3.

begin

 readarrreal(10).Where(x -> x > 0).Average.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