Ответы на вопрос:
6) const n=10; var a: array[1..n] of integer; i,max,min : integer; beginrandomize; writeln('исходный массив: '); for i: =1 to n do begin a[i]: =random(21); write(a[i]: 3); end; writeln; max: =a[1]; min: =a[1]; for i: =2 to n do begin if a[i] > max then max: =a[i]; if a[i] < min then min: =a[i]; end; writeln('l = ',max-min); end.пример: исходный массив: 10 8 8 6 4 16 18 10 11 13l = 149)const n=10; var a: array[1..n] of real; i,k1,k2 : integer; beginrandomize; writeln('исходный массив: '); for i: =1 to n do begin a[i]: =10*random-5; write(a[i]: 5: 2); end; writeln; k1: =0; k2: =0; for i: =1 to n do if a[i]> 0 then k1: =k1+1 else if a[i]< 0 then k2: =k2+1; writeln('положительных: ',k1,', отрицательных: ',k2,' нулевых: ',n-k1-k2); end.пример: исходный массив: -1.03 2.79-3.60 0.33-3.69-4.69-2.34-4.19 1.20 1.74положительных: 4, отрицательных: 6 нулевых: 016)const n=10; var a: array[1..n] of real; i : integer; beginfor i: =1 to n div 2 do begin a[i]: =i; a[n div 2+i]: =sin(a[i]); end; for i: =1 to n div 2 do writeln(a[i]: 4: 1,a[n div 2+i]: 6: 2); end.пример: 1.0 0.842.0 0.913.0 0.144.0 -0.765.0 -0.9619)const n=10; var a: array[1..n] of integer; i: integer; beginrandomize; writeln('исходный массив: '); for i: =1 to n do begin a[i]: =random(51); write(a[i]: 5); end; writeln; writeln('выбранные элементы: '); i: =1; while i< =n do begin write(a[i],' '); i: =2*i; end; end.пример: исходный массив: 8 38 22 45 36 23 21 13 5 13выбранные элементы: 8 38 45 13
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
Studennmb116.01.2023 20:56
-
Varvarrrrrrrrrra08.11.2020 20:41
-
KoRmlx09.04.2020 18:17
-
Anel757525.03.2022 03:31
-
xgvhhdhs04.03.2023 13:20
-
sivtsevavera200511.03.2022 00:20
-
Lera680702.07.2022 19:59
-
AMORVL23.12.2022 01:29
-
ulyanooo06.03.2021 19:27
-
Лана20061106.02.2020 17:15
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.