Тема паскаль: необходимо поменять местами половинки массива(54231-31254,это к примеру)
148
221
Ответы на вопрос:
Const n=? ; {кол-во элементов в массиве, написать число вместо "? "} var a,b: array[1..n] of integer; x,k,i,j: integer; begin writeln('init massive: '); for i: =1 to n do begin readln(x); {а лучше написать read(x); и вводить числа через пробел одной строкой, красивее будет} a[i]: =x; end; k: =n div 2; if (n mod 2)< > 0 then k: =k+1; j: =1; for i: =(k+1) to n do begin b[j]: =a[i]; j: =j+1; end; if (n mod 2)< > 0 then begin b[k]: =a[k]; k: =k-1; j: =j+1; end; for i: =1 to k do begin b[j]: =a[i]; j: =j+1; end; for i: =1 to n do write(b[i],' '); end.
Решение на pascal (если не подходит - скажите): program pediatr; var h_old, h_new, w_old, w_new: integer; begin write('введите рост ребёнка месяц назад (в см): '); readln(h_old); write('введите рост ребёнка сейчас (в см): '); readln(h_new); write('введите вес ребёнка месяц назад (в г): '); readln(w_old); write('введите рост ребёнка сейчас (в г): '); readln(w_new); if ( (h_new - h_old) > = 3 ) and ( (w_new - w_old) > = 700) then writeln('ваш ребёнок развивается хорошо') else writeln('ваш ребёнок меньше нормы'); end.
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
Sveto4ka34215.09.2021 18:21
-
LizaDemidova310117.08.2021 12:29
-
mariabilyk200531.01.2023 14:26
-
Resh4tor133701.08.2020 09:45
-
Тян25529.09.2020 03:44
-
levgoncharenko18.02.2020 11:11
-
Nika3130314.03.2023 23:10
-
AkameTop02.01.2022 12:18
-
Zabon02.02.2020 05:48
-
dikinova2017ozio8q02.05.2022 06:23
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.