Дан одномерный целочисленный массив mas. поменять местами два элемента массива с номерами k1 и k2, если оба этих элемента положительны. иначе – запросить у пользователя индекс ещё одного элемента k 3 и поменять его местами с первым элементом массива. вывести на экран итоговый массив в строку.

278

346

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

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

olavd

Информатика

4,4(61 оценок)

//pascal abc.net v3.1 сборка 1219 const n=10; var ar: array[1..n] of integer; k1,i,c,k2,k3: integer; begin randomize; writeln('first array: '); for i: =1 to n do begin ar[i]: =random(9)-3; write(ar[i]: 4); end; writeln; write('enter index 1: '); readln(k1); write('enter index 2: '); readln(k2); if (ar[k1]> 0) and (ar[k2]> 0) then begin c: =ar[k1]; ar[k1]: =ar[k2]; ar[k2]: =c; end else begin write('enter index 3: '); readln(k3); c: =ar[1]; ar[1]: =ar[k3]; ar[k3]: =c; end; writeln('final array: '); for i: =1 to n do write(ar[i]: 4); end. пример работы программы: first array: -1 -1 1 -1 0 -1 -2 -2 5 -2 enter index 1: 9 enter index 2: 1 enter index 3: 7 final array: -2 -1 1 -1 0 -1 -1 -2 5 -2

motoquence

Информатика

4,5(92 оценок)

Ввести n а=n c=0 x=1 пока a< > 0 x=x+c c=c+1 a=a-1 кц пока

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

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

Задай свой вопрос

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

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

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

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

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

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

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