Автор - Ioann113

Помогите пожалуйста;(


Вписать фрагмент программы, который соответствует описанию

 Одномерный массив N с 10 действительных чисел

Одномерный массив Date из 20 целых чисел

Сумма всех элементов массива,
который состоит из 30 элементов

Элементы произвольного массива равны квадратам своих индексов

Ввести с клавиатуры в массив 20 целых чисел



Задано массив, содержащий 50 целых чисел. Найти сумму положительных элементов массива.

Ответ

Автор - Twyla27
1) var N: array [1..10] of real;
2) var Date: array [1..20] of integer;
3) var a: array [1..30] of integer;
i, sum: integer;
...
sum:=0;
for i:=1 to 30 do
sum:=sum+a[i];
...
4) for i:=1 to N do
a[i]:=i*i;
5) var Date: array [1..20] of integer;
i: integer;
...
for i:=1 to 20 do
readln(a[i]);
...
6) var a: array [1..50] of integer;
i, sum: integer;
...
sum:=0;
for i:=1 to 50 do
if a[i]>0 then sum:=sum+a[i];
...


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

Сервис носит ознакомительный характер, вся информация, а в частности вопросы и ответы, которые задают и отвечают пользователи.
© 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