Регистрация Спросить otvet5GPT
КАЗ777
23.07.2020 21:01
Информатика
Есть ответ 👍

Заполните массив с четным количеством элементов случайными числами и выполните реверс отдельно для первой и второй половины массива паскальabcnet

118
436
Посмотреть ответы 2

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

Ilonka2734
Ilonka2734
4,4(87 оценок)
Const nx=30; var n,i,k,t,j,kp : integer; p,pp: real; b: array[1..nx] of integer; beginreadln(n); if n mod 2 = 0 then beginp: = n/2; k: =round(p); pp: = k/2; kp: =round(pp); for i: =1 to n do beginb[i]: =random(98)-25; write(b[i]: 3); end; writeln; for i: = k downto 1 do beginj: =j +1; t: =b[j]; b[j]: =b[i];   b[i]: =t; if i - kp =1 then break; end; writeln; j: =k; for i: = n downto k+1 do beginj: =j +1; t: =b[j]; b[j]: =b[i];   b[i]: =t; if i - (kp+k) =1 then break; end; for i: =1 to n do  write(b[i]: 3); endelsewriteln('введено  не правино'); end.
ксюша1692
ксюша1692
4,4(67 оценок)
Var   a,b,c,min: integer; begin write('введите a: '); readln(a); min: =a; write('введите b: '); readln(b); if b< min then min: =b; write('введите c: '); readln(c); if c< min then min: =c; writeln('наименьшее: ',min); end.для vbasub z()dim a as integerdim b as integerdim c as integerdim min as integera = inputbox("введите  a: ") min = ab = inputbox("введите  b: ")if b < min then min = bc = inputbox("введите  c: ")if c < min then min = cmsgbox ("наименьшее: " & min)end subдля наибольшегоsub z() dim a as integer dim b as integer dim c as integer dim max  as integer a = inputbox("введите  a: ") max= a b = inputbox("введите  b: ") if b > max  then  max  = b c = inputbox("введите  c: ") if c > max  then  max  = c msgbox ("наибольшее: " &   max  ) end sub

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

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

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

Caktus Image

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

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

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

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

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

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

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

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

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

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

GTP TOP NEWS