:записать чётные положительные элементы целочисленных массивов x и y в массив z. поменять минимальный и максимальный элементы массива z. вывести элементы массива z в четверичной системе счисления .
186
410
Ответы на вопрос:
Const n=10; var i,k,min,max: integer; x,y: array[1..n]of integer; z: array[1..2*n]of integer; function four(n: integer): string; var s: string; beginrepeat s: =s+inttostr(n mod 4); n: =n div 4; until n=0; result: =reversestring(s); end; beginfor i: =1 to n do begin x[i]: =random(-10,10); y[i]: =random(-10,10); if (x[i] mod 2=0) and (x[i]> 0) then begin k: =k+1; z[k]: =x[i]; if k=1 then begin min: =z[1]; max: =z[1]; end; if z[k]> max then max: =z[k]; if z[k]< min then min: =z[k]; end; if (y[i] mod 2=0) and (y[i]> 0) then begin k: =k+1; z[k]: =y[i]; if k=1 then begin min: =z[1]; max: =z[1]; end; if z[k]> max then max: =z[k]; if z[k]< min then min: =z[k]; end; end; write('массив x: '); for i: =1 to n do write(x[i]: 4); writeln; write('массив y: '); for i: =1 to n do write(y[i]: 4); writeln; write('массив z: '); for i: =1 to k do write(z[i]: 4); writeln; write('измененный массив z: '); for i: =1 to k do begin if z[i]=min then z[i]: =max else if z[i]=max then z[i]: =min; write(z[i]: 4); end; writeln; write('массив z по основанию 4: '); for i: =1 to k do write(four(z[i]): 4); end.
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
Annkot2219.10.2022 21:46
-
LubaIvanova16018.02.2021 13:10
-
slavka19426.03.2020 12:07
-
киря228904.10.2021 04:53
-
roman555555412.04.2022 07:31
-
vasvas1204.06.2021 09:44
-
alexeyzlodei25.07.2022 04:45
-
Агентство1020304001.11.2020 05:11
-
Ani3253618.04.2021 13:45
-
ВалерияЛера1111115.02.2022 03:59
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.