Составьте программу, которая заполняет массив а(1..10) случайными целыми числами в диапазоне от 1 до 100, затем меняет местами максимальный и минимальный элементы. выведите на экран исходный и полученный массивы.
252
284
Ответы на вопрос:
const n=10;
var a: array [1..n] of integer;
i,max,min,imax,imin: integer;
begin
min: =100;
max: =1;
write(' исходный массив: ');
for i: =1 to n do
begin
a[i]: =random(100)+1;
if a[i] > max then
begin
max: =a[i];
imax: =i
end;
if a[i] < min then
begin
min: =a[i];
imin: =i
end;
write(a[i]: 3,' ')
end;
writeln;
a[imax]: =min;
a[imin]: =max;
write('полученный массив: ');
for i: =1 to n do write(a[i]: 3,' ')
end.
Dim a(10) for i=1 to 10 input a(i) next for i=2 to 10 step 2 print a(i) next вторую не помню как решать сама попробуй начало вот: randomize timer dim a(10) for i=1 to 10 a(i)=не помню че то там с rnd next и тут не помню)
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
daha7709.02.2023 02:08
-
МистрКрутой1115.11.2021 21:16
-
арина113813.05.2020 02:44
-
Стивен1221.12.2022 02:29
-
Sterl05.09.2022 04:46
-
Кись12323.02.2023 07:31
-
милaна115.11.2020 21:55
-
Salsa1330.03.2021 02:39
-
IvanMiren11.06.2023 14:32
-
MrNikitkahelp08.03.2023 06:50
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.