1. заполнить одномерный массив b вещественными числами из промежутка от -20 до 5. найти сумму и среднее положительных и четных элементов массива. найти произведение отрицательных элементов массива. найти минимальный элемент массива. отсортировать массив по убыванию. 2. заполнить одномерный массив а целыми числами из промежутка от -12 до 7. вывести элементы массива, значения которых больше заданного числа н и кратны числу к. найти максимальный элемент массива. отсортировать массив по возрастанию. на паскале

171

278

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

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

SherlockAlya

Информатика

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

№1 //pascalabc.net (версия 3.1, сборка 1210 от 29.03.2016) var b: array of real; i, n,pn: integer; ps,op,min: real; begin write('количество элементов массива : '); readln(n); setlength(b, n); // задаем длину массива min: =maxreal; op: =1; writeln('исходный массив: '); for i: =0 to n-1 do begin repeat write('введите ',i+1,' число из ',n,' : '); readln(b[i]); until (b[i]< =5) and (b[i]> =-20); if (b[i]> 0) and (round(b[i]/2)*2=b[i]) then begin ps +=b[i]; pn+=1; end else if b[i]< 0 then op *=b[i]; if b[i]< min then min: =b[i]; end; writeln; writeln('сумма положительных и четных элементов массива : ',ps: 0: 3); writeln('среднее положительных и четных элементов массива : ',ps/pn: 0: 3); writeln('произведение отрицательных элементов массива : ',op: 0: 3); writeln('минимальный элемент массива : ',min); writeln('отсортированный массив по убыванию : '); b.sorteddescending.println; end. тестовое решение: количество элементов массива : 8 исходный массив: введите 1 число из 8 : -18.5 введите 2 число из 8 : 3.4 введите 3 число из 8 : 4 введите 4 число из 8 : -12 введите 5 число из 8 : 2.2 введите 6 число из 8 : -6.3 введите 7 число из 8 : 2 введите 8 число из 8 : 5 сумма положительных и четных элементов массива : 6.000 среднее положительных и четных элементов массива : 3.000 произведение отрицательных элементов массива : -1398.600 минимальный элемент массива : -18.5 отсортированный массив по убыванию : 5 4 3.4 2.2 2 -6.3 -12 -18.5 №2 //pascalabc.net (версия 3.1, сборка 1210 от 29.03.2016) var a: array of integer; i,n ,max,h,k: integer; begin write('количество элементов массива : '); readln(n); write('число h : '); readln(h); write('число k : '); readln(k); setlength(a, n); // задаем длину массива max: =-maxint; writeln('исходный массив: '); for i: =0 to n-1 do repeat write('введите ',i+1,' число из ',n,' : '); readln(a[i]); if a[i]> max then max: =a[i]; until (a[i]< =7) and (a[i]> =-12); for i: =0 to n-1 do begin if (a[i]> h) and (a[i]mod k=0) then writeln('число ', a[i],' больше ',h,' и кратно ',k); end; writeln('максимальный элемент массива : ',max); writeln('отсортированный массив по возрастанию : '); a.sorted.println; end. тестовое решение: количество элементов массива : 8 число h : -8 число k : 2 исходный массив: введите 1 число из 8 : -10 введите 2 число из 8 : 6 введите 3 число из 8 : -4 введите 4 число из 8 : 3 введите 5 число из 8 : 1 введите 6 число из 8 : -1 введите 7 число из 8 : -12 введите 8 число из 8 : 4 число 6 больше -8 и кратно 2 число -4 больше -8 и кратно 2 число 4 больше -8 и кратно 2 максимальный элемент массива : 6 отсортированный массив по возрастанию : -12 -10 -4 -1 1 3 4 6

Rav1112

Информатика

4,7(37 оценок)

Д) щелчком правой кнопки мыши по пиктограмме объекта

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

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

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

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

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

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

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

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

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

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