Дан массив чисел. определить количество элементов, находящихся в интервале от1 до 12 и расположенных до максимального элемента массива. паскаль.

101

333

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

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

Тимофей17727

Информатика

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

// pascalabc.net 3.2, сборка 1417 от 28.03.2017 // внимание! если программа не работает, обновите версию! begin var a: =arrrandom(readinteger('n=',20); a.println; writeln(a[: a.indexmax].where(x-> (x> =1) and (x< =) end. пример n= 15 3 12 -1 10 -7 18 10 19 8 9 -2 4 0 19 13 4 а вот так учат писать эту же программу в const nn=100; var a: array[1..nn] of integer; i,n,imax,k: integer; begin randomize; write('n='); read(n); for i: =1 to n do begin a[i]: =random(41)-20; write(a[i],' '); end; writeln; imax: =1; for i: =2 to n do if a[i]> a[imax] then imax: =i; k: =0; for i: =1 to imax do if (a[i]> =1) and (a[i]< =12) then k: =k+1; writeln(k) end. вот отсюда и вопрос: для чего учить писать длинно, сложно и малопонятно?

nurbibisaidova3

Информатика

4,4(39 оценок)

Const n = 33; var a: array[1..n] of integer; i,max,k: integer; begin randomize; write('исходный массив: '); for i: = 1 to n do begin a[i]: =random(n); write(a[i],' '); end; writeln; max: =1; for i: = 2 to n do if a[i]> a[max] then max: =i; writeln('a[',max,'] = ',a[max]); write('искомые элементы: '); k: =0; for i: = 1 to n do if (1< =a[i])and(a[i]< =12) then begin write(a[i],' '); k: =k+1; end; writeln; write('их количество: ',k); end. пример: исходный массив: 19 24 23 22 17 15 18 21 16 18 6 17 30 23 14 24 11 28 19 13 4 28 21 23 7 19 26 4 11 16 10 14 28 a[13] = 30 искомые элементы: 6 11 4 7 4 11 10 их количество: 7

дарий833

Информатика

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

1) 150 байт = 150*8 бит = 1200 бит количество информации на один символ = 1200/400 = 3 бита количество символов в алфавите = 2^3 = 8 2) количество символов = 80*55 = 4400 3300 байт = 3300*8 бит количество информации на один символ = 3300*8/4400 = 6 бит количество символов в алфавите = 2^6 = 64 3) количество символов = 3*80*33 = 7920 6930 байт = 6930*8 бит количество информации на один символ = 6930*8/7920 = 7 бит количество символов в алфавите = 2^7 = 128

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

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

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

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

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

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

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

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

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

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