Дан массив m (10) . сформировать массив n, в который выйдут квадратные корни из положительных элементов массива m. массивы m и n распечатать на бейсике
282
410
Ответы на вопрос:
'microsoft qbasic 1.0 data 23.45,51.8,-6.3,18,-11.9,37.2,-4,19,31.4,-11.2 dim m(1 to 10) as double cls k = 0 for i = 1 to 10 read m(i) print m(i); ' '; if m(i) > 0 then k = k + 1 next i print redim n(1 to k) j = 0 for i = 1 to 10 if m(i) > 0 then j = j + 1 n(j) = sqr(m(i)) print n(j); ' ' end if next i print тестовое решение 23.45 51.8 -6.3 18 -11.9 37.2 -4 19 31.4 -11.2 4.84252 7.197222 4.24264 6.09918 4.358899 5.60357
Const n=10; var a: array [1..n] of integer; i,max: integer; begin randomize; for i: =1 to n do begin a[i]: =random (10); write(a[i],' ') end; writeln; max: =a[1]; for i: =1 to n do if (i mod 2 =0) and (max< a[i]) then max: =a[i]; writeln (max) end.
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
dinka4113.12.2022 11:07
-
hshdk20.08.2022 06:43
-
silonte05.07.2020 15:12
-
jamjamiam14.11.2022 11:15
-
mariyamariya20127.03.2021 21:20
-
Наська012307.09.2022 05:14
-
larson690917.02.2021 00:06
-
da0ri0da014.05.2021 22:19
-
dis824.02.2021 06:56
-
Tashernaut25.06.2020 09:48
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.