(51 ) (pascal) есть массив n[18]
: все двузначные элементы массива переписать в новый массив y. найти максимальные элементы в массивах n и y.
Ответы на вопрос:
ответ:
var n,y: array [1..18] of integer;
i,k,mn,my: integer;
begin
write('массив n: ');
for i: =1 to 18 do
begin
n[i]: =random(41)-20;
write(n[i]: 5);
if ((n[i]> 9) and (n[i]< 100)) or ((n[i]> -99) and (n[i]< -10)) then
begin
k: =k+1;
y[k]: =n[i]
end
end;
writeln;
mn: =1;
for i: =1 to 18 do if n[mn]
my: =1;
write('массив y: ');
for i: =1 to k do
begin
if y[my]
write(y[i]: 5);
end;
writeln;
writeln ('максимальный элемент массива n равен ', n[mn]);
writeln ('максимальный элемент массива y равен ', y[my])
end.
pascalabc.net
begin
var n : = arrrandom(18, -199, 199); // случайные числа
println('массив n');
n.println;
println('максимальное значение', n.max);
var y : = n.where(p -> abs(p).inrange(10, ;
println('массив y');
y.println;
println('максимальное значение', y.max);
end.
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
Евангелина1234502.12.2022 02:32
-
andrekunshin30.10.2021 05:53
-
DianaAudley09.10.2020 00:56
-
KriSha1130.04.2021 04:04
-
Dolboeb900011.10.2020 19:45
-
Arsrezida09.05.2022 05:54
-
Ro4KKy20.07.2020 12:06
-
ДашаАлл12.01.2020 17:29
-
Галя442516.07.2021 05:19
-
Shkaf229.10.2022 11:05
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.