Для заданного одномерного массива целых чисел выполнить последовательно следующие опции: найти количество и сумму чисел имеющих свойство а; переписать в другой массив числа, имеющий свойство б; все числа, имеющие свойства в, заменить заданным числом z1; упорядочить массив по не убыванию; удалить из него все числа, имеющие свойство г; вставить в нужное место массива заданное число z2, если его там нет. а) меньше своих соседей б) положительно в) наименьшее г) не кратно заданным p и q
213
431
Ответы на вопрос:
// pascalabc.net 3.2, сборка 1427 от 24.04.2017 // внимание! если программа не работает, обновите версию! begin var m: =arrrandom(readinteger('n=',20); m.println; (var k,var s): =(0,0); for var i: =1 to m.length-2 do if (m[i]< m[i-1]) and (m[i]< m[i+1]) then (k,s): =(k+1,s+m[i]); writeln('свойство а: кол-во=',k,', сумма=',s); var mb: =m.where(x-> x< 0).toarray; write('свойство б: '); mb.println; var z: =readinteger('z1='); var mmin: =m.min; m.transform(x-> x=mmin? z: x); writeln('свойство b: '); m.println; m.sort; writeln(' по неубыванию: '); m.println; var p,q: integer; write('введите p q: '); read(p,q); m: =m.where(x-> (x mod p< > 0) and (x mod q< > ; writeln('свойство г: '); m.println; z: =readinteger('z2='); p: =m.findindex(x-> x> =z); if m[p]< > z then m: =(m[: p]+arr(z)+m[p: ]).toarray; writeln('после попытки вставки: '); m.println end. пример n= 17 3 5 -5 12 -15 6 11 -7 -13 -3 -17 8 -7 8 -5 -15 -7 свойство а: кол-во=6, сумма=-72 свойство б: -5 -15 -7 -13 -3 -17 -7 -5 -15 -7 z1= -33 свойство b: 3 5 -5 12 -15 6 11 -7 -13 -3 -33 8 -7 8 -5 -15 -7 по неубыванию: -33 -15 -15 -13 -7 -7 -7 -5 -5 -3 3 5 6 8 8 11 12 введите p q: 3 7 свойство г: -13 -5 -5 5 8 8 11 z2= 0 после попытки вставки: -13 -5 -5 0 5 8 8 11
Популярно: Информатика
-
sashka128104.01.2023 01:00
-
vorobyv200405.11.2022 19:15
-
frikadel131.03.2021 21:47
-
lordczar9519.06.2023 07:06
-
Celovek2111.10.2020 01:11
-
pelulachka06.04.2023 04:33
-
ania5115.09.2022 11:09
-
ЁшкинКот247913.05.2020 00:51
-
Katylopy29.12.2020 05:46
-
abereziuk201712.06.2020 03:33