Решите пожалуйста программу в паскале: Составить программу…

34

Решите пожалуйста программу в паскале: Составить программу, которая формирует массив из 10 случайных чисел от -30 до 30 и если третий элемент больше нуля, то поменять местами третий и пятый элементы, если третий элемент равен нулю, то увеличить оба эти элементы в 2 раза, иначе третий и пятый элементы сохраняют прежние значения.

категория: информатика

ответить

в избранное

33

vlad-step

03 сентября 2022

Program pr; var a: array [1… 10] of integer; i, m: integer; beginfor i: =1 to 10 doa[i]: =-30+random (30+30+1); for i: =1 to 10 do write (a[i]: 5); if a[3]>0 then begin m: =a[3]; a[3]: =a[5]; a[5]: =m; end; if a[3]=0 then begin a[3]: =a[3]*2; a[5]: =a[5]*2; end; for i: =1 to 10 dowrite (a[i]: 5); end.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Знаете другой ответ?

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

Смотрите также:

Помогите ришить зарание спосибо 1. Клавиша которая переводит курсор в конец строки…

Расчет прогноза погоды на современном компьютере с быстродействием 1 млн. Операций в секунду длится втечение 1 часа

1. Какое из чисел не может быть записано в в двоичной системесчисления?

Помогите решить задание, зарание спосибо 1. Одна из клавиш меняюшия действие других команд…

Составить программу нахождения значення функцииy=1+1 / (2*2)+1 / (3*3)+… +1 / (n*n), если n=10

Назовите объекты сведения о которых содержат записи баз данных погода успеваемостьфакультативы

При составлении сообщения используют 64-символьный алфавит, каким будет объем такого сообщения…

Закодировать текст, меняя местами соседние символы, только что бы я сома могла вводить любой текст, пожалуйста помогите

Запиши числа римской нумерацией 45,57,64,72,81,98

27400

14822

Английский язык

14216

Биология

7369

720

Экономика

18829

8304

География

15850

Геометрия

5255

Информатика

11818

23332

15992

Литература

73118

Математика

8152

Обществознание

466

Правоведение

46271

Русский язык

Есть интересный вопрос? Задайте его нашему сообществу, у нас наверняка найдется ответ!

Делитесь опытом и знаниями, зарабатывайте награды и репутацию, заводите новых интересных друзей!

Задавайте интересные вопросы, давайте качественные ответы и зарабатывайте деньги. Подробнее...