Спаскалем. 6.) дана последовательность чисел а1, а2, ан. указать наименьшую длину числовой оси, содержащую все эти числа. 9.) дан массив действительных чисел, размерность которого н. подсчитать, сколько в нем отрицательных, положительных и нулевых элементов. 16.) в одномерном массиве размещены: в первых элементах значение аргумента, в следующих - соответствующие им значения функции. напечатать элементы этого массива в виде двух параллельных столбцов (аргументы и значения функции). 19.) дан целочисленный массив с количеством элементов н. напечатать те его элементы, индексы которых являются степенями двойки (1,2,4,8,

179

219

Посмотреть ответы 3

Ответы на вопрос:

егорка140

Информатика

4,6(41 оценок)

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

марусяice1

Информатика

4,8(22 оценок)

// pascalabc.net 3.3, сборка 1627 от 27.01.2018 // внимание! если программа не работает, обновите версию! №6 begin var a: =arrrandom(readinteger('n=',99).println; writeln('[',a.min,'; ',a.max,']') end. пример n= 13 72 -77 -88 -99 -2 -61 67 40 -30 -28 91 -56 29 [-99; 91] №9 begin var a: =readarrreal('вводите: ',readinteger('n=')); writeln('положительных: ',a.where(t-> t> 0).count); writeln('отрицательных: ',a.where(t-> t< 0).count); writeln('нулевых: ',a.where(t-> t=0).count) end. пример n= 10 вводите: 3.7 12.6 -4 0 -13.2 0.7 0 14 2.12 0.004 положительных: 6 отрицательных: 2 нулевых: 2 №16 begin var a: =arr(-3.7,-3.1,-2.3,-1.6,-0.9,-0.2,0.5,1.2,1.9,2.6,3.3,4.0,4.2,5.4, 1.92,1.76,1.52,1.26,0.95,0.45,0.71,1.10,1.38,1.61,1.82,2.00,2.05,2.32); var d: =a.length div 2; for var i: =0 to d-1 do writeln(a[i]: 5: 2,a[i+d]: 20: 3) end. результат -3.70 1.920 -3.10 1.760 -2.30 1.520 -1.60 1.260 -0.90 0.950 -0.20 0.450 0.50 0.710 1.20 1.100 1.90 1.380 2.60 1.610 3.30 1.820 4.00 2.000 4.20 2.050 5.40 2.320 №19 begin var n: =readinteger('n='); var a: =arrrandom(n,-50,50); a.println; var i: =1; while i< =n do begin print(a[i-1]); i*=2 end; writeln end. пример n= 17 -43 -41 -37 -43 12 45 -34 -19 -38 33 -34 39 -40 33 -46 4 39 -43 -41 -43 -19 4

owe4kinad

Информатика

4,7(42 оценок)

Ответ: файл - это последовательность байтов, имеющая собственное имя. правильный ответ а

Реши свою проблему, спроси otvet5GPT

Быстро
Мгновенный ответ на твой вопрос
Точно
Бот обладает знаниями во всех сферах
Бесплатно
Задай вопрос и получи ответ бесплатно

Задай свой вопрос

Популярно: Информатика

Есть вопросы?

Как otvet5GPT работает?

otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
Сколько это стоит?

Проект находиться на стадии тестирования и все услуги бесплатны.
Могу ли я использовать otvet5GPT в школе?

Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
В чем отличия от ChatGPT?

otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.