1. В массиве из 70 целых чисел найти количество частей, кратных
1. В массиве из 70 целых чисел отыскать количество частей, кратных 3
2. Проверить, что в массиве ровно 3 одинаковых максимальных числа
3. В массиве удалить все элементы, имеющие нечетные значения
1 ответ
Юля Тажирова
// PascalABC.NET 3.0, сборка 1128
begin
var a:=ArrRandom(70,1,100).PrintLn;
Writeln('Количество элементов, кратных трем: ',
a.Where(x-gt;x mod 3=0).Count);
var p:=a.OrderByDescending(x-gt;x).Take(4).ToArray;
if (p[0]=p[1]) and (p[0]=p[2]) and (p[0]lt;gt;p[3]) then
Writeln('В массиве ровно три одинаковых наибольших элемента')
else Writeln('В массиве не три схожих наибольших элемента');
Writeln('Массив, из которого удалены элементы с нечетными значениями');
a.Where(x-gt; not Odd(x)).PrintLn
end.
Тестовое решение:
38 85 87 89 78 50 26 92 6 41 14 57 14 41 81 5 30 21 27 71 92 55 76 53 84 18 62 28 85 58 14 58 42 92 1 93 68 67 53 65 15 45 47 57 76 60 6 88 44 4 27 21 39 67 96 84 10 35 6 60 88 98 7 48 28 56 16 23 40 88
Количество частей, кратных трем: 25
В массиве не три схожих максимальных элемента
Массив, из которого удалены элементы с нечетными значениями
38 78 50 26 92 6 14 14 30 92 76 84 18 62 28 58 14 58 42 92 68 76 60 6 88 44 4 96 84 10 6 60 88 98 48 28 56 16 40 88
3 76 40 20 39 100 15 85 75 58 43 48 2 57 45 90 12 50 92 70 64 33 94 38 18 59 74 10 31 13 61 34 100 77 42 61 76 95 38 100 27 44 7 75 23 22 24 52 70 39 91 68 79 74 83 70 82 2 2 80 26 6 55 62 97 10 48 25 16 84
Количество частей, кратных трем: 19
В массиве ровно три схожих наибольших элемента
Массив, из которого удалены элементы с нечетными значениями
76 40 20 100 58 48 2 90 12 50 92 70 64 94 38 18 74 10 34 100 42 76 38 100 44 22 24 52 70 68 74 70 82 2 2 80 26 6 62 10 48 16 84
begin
var a:=ArrRandom(70,1,100).PrintLn;
Writeln('Количество элементов, кратных трем: ',
a.Where(x-gt;x mod 3=0).Count);
var p:=a.OrderByDescending(x-gt;x).Take(4).ToArray;
if (p[0]=p[1]) and (p[0]=p[2]) and (p[0]lt;gt;p[3]) then
Writeln('В массиве ровно три одинаковых наибольших элемента')
else Writeln('В массиве не три схожих наибольших элемента');
Writeln('Массив, из которого удалены элементы с нечетными значениями');
a.Where(x-gt; not Odd(x)).PrintLn
end.
Тестовое решение:
38 85 87 89 78 50 26 92 6 41 14 57 14 41 81 5 30 21 27 71 92 55 76 53 84 18 62 28 85 58 14 58 42 92 1 93 68 67 53 65 15 45 47 57 76 60 6 88 44 4 27 21 39 67 96 84 10 35 6 60 88 98 7 48 28 56 16 23 40 88
Количество частей, кратных трем: 25
В массиве не три схожих максимальных элемента
Массив, из которого удалены элементы с нечетными значениями
38 78 50 26 92 6 14 14 30 92 76 84 18 62 28 58 14 58 42 92 68 76 60 6 88 44 4 96 84 10 6 60 88 98 48 28 56 16 40 88
3 76 40 20 39 100 15 85 75 58 43 48 2 57 45 90 12 50 92 70 64 33 94 38 18 59 74 10 31 13 61 34 100 77 42 61 76 95 38 100 27 44 7 75 23 22 24 52 70 39 91 68 79 74 83 70 82 2 2 80 26 6 55 62 97 10 48 25 16 84
Количество частей, кратных трем: 19
В массиве ровно три схожих наибольших элемента
Массив, из которого удалены элементы с нечетными значениями
76 40 20 100 58 48 2 90 12 50 92 70 64 94 38 18 74 10 34 100 42 76 38 100 44 22 24 52 70 68 74 70 82 2 2 80 26 6 62 10 48 16 84
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
Анна хорошо учится у неё много подруг свободное от учёбы время
Обществознание.
10) Килограмм конфет дороже килограмма печенья на 52 р. За 8
Математика.
Во сколько раз число атомов кислорода в земной коре больше числа
Химия.
Составить монолог от имени дневника двоечника 7-10 предложений
Русский язык.
Рассматривая литературный язык как сложное взаимодействие книжного языка и разговорного,В.И.Чернышёв горячо
Разные вопросы.
Арабы входят в __________________ групп народов. Местом расселения арабов с незапамятных
Разные вопросы.
Грузовой автомобиль марки краз за одну поездку может доставить 7.500 кирпичей
Математика.
Определить предложения какие они по цели высказывания и по интонации
Русский язык.
"Три толстяка" Называли эту площадь Площадью Звезды последующей причине.
Русский язык.
на одной грядке коротышки посадили 3 ряда морковок по 8 штук
Разные вопросы.
Облако тегов