Регистрация Спросить otvet5GPT
Helпаните
09.06.2021 15:18
Информатика
Есть ответ 👍

Нужна умных и девчонок, шарящих в программировании паскаль, может для вас покажутся легкими, но я после создания массива просто залипла. 1. дан одномерный массив z, состоящий из 30 элементов, полученный случайным образом. найти сумму значений элементов, которые меньше полусуммы наименьшего и наибольшего значений элементов данного массива. 2.вычислить z=(s+max)/3, где s-сумма положительных элементов массива, max-наибольший элемент. , буду го активней, , на завтра нужно

139
459
Посмотреть ответы 2

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

vano22312231
vano22312231
4,7(96 оценок)
1) var z: array[1..30] of integer;   i,max,min,s: integer; beginfor i: =1 to 30 do  z[i]: =random(100); max: =z[1]; min: =z[1]; for i: =1 to 30 do     if z[i]> max then max: =z[i]; for i: =1 to 30 do     if z[i]< min then min: =z[i]; for i: =1 to 30 do   if z[i]< ((max+min)/2) then s: =s+z[i]; write('s= ',s); end.2)var m: array[1..30] of integer;   i,max,s: integer;   z: real; beginfor i: =1 to 30 do  m[i]: =random(100); max: =m[1]; for i: =1 to 30 do   if m[i]> max then max: =m[i]; for i: =1 to 30 do   if   m[i]> 0 then s: =s+m[i]; z: =(s+max)/3; write('z= ',z: 0: 0); end.
pueser
pueser
4,8(23 оценок)
Var y,n: integer; x: real; begin n: =1; write('x= '); readln(x); write('y= '); readln(y); while x < y do begin inc(n); x: =x*1.1; end; writeln(n); end.

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

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

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

Caktus Image

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

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

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

  • Сколько это стоит?

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

  • Могу ли я использовать otvet5GPT в школе?

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

  • В чем отличия от ChatGPT?

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

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

GTP TOP NEWS