Есть ответ 👍

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

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.

1)

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

2)

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

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

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

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

Caktus Image

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

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

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

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

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

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

Подпишись на наш телеграмм канал

GTP TOP NEWS