90 дан одномерный массив состоящий из n элементов. элементы определяются random. диапазон от -100 до 100. 1. найти max элементов и номер 2. min 3. среднее значение 4. поменять местами max и min

104

321

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

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

derwi

Информатика

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

Const n = 13; var a: array[1..n] of integer; i,max,min,s: integer; begin randomize; write('исходный массив a(',n,'): '); min: =1; max: =1; for i: = 1 to n do begin a[i]: =random(201)-100; write(' ',a[i]); if a[i]< a[min] then min: =i; if a[i]> a[max] then max: =i; s: =s+a[i]; end; writeln; writeln('min(a) = a[',min,'] = ',a[min]); writeln('max(a) = a[',max,'] = ',a[max]); writeln('среднее арифметическое элементов массива = ',s/n); write('новый массив: '); s: =a[min]; a[min]: =a[max]; a[max]: =s; for i: = 1 to n do write(' ',a[i]) end. пример работы программы: исходный массив a(13): 60 -61 8 -60 58 -73 93 82 74 -35 89 -72 -44 min(a) = a[6] = -73 max(a) = a[7] = 93 среднее арифметическое элементов массива = 9.15384615384615 новый массив: 60 -61 8 -60 58 93 -73 82 74 -35 89 -72 -44

79869106698

Информатика

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

Const n=20; var a: array[1..n] of shortint; min,max,i: longint; begin randomize; for i: =1 to n do a[i]: =-100+random(201); min: =1; max: =1; for i: =2 to n do begin write(a[i]: 5); if(a[i]< a[min]) then min: =i; if a[i]> a[max] then max: =i; end; writeln; writeln('max: ',a[max],' index: ',max); writeln('min: ',a[min],' index: ',min); i: =a[min]; a[min]: =a[max]; a[max]: =i; for i: =1 to n do write(a[i]: 5); end.

Хаурма7

Информатика

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

program z1; var a,b,c,p: real; begin readln(a,b,c); p: =(a+b+c)/3; writeln('p=',p); end.

program z2; var a,b,p: real; begin readln(a,b); p: =a*a*a+b*b*b; writeln('p=',p); end.

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

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

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

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

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

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

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

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

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

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