1.Дан одномерный массив A(N) Отсортировать массив по убыванию. Отыскать произведение элементов
1.Дан одномерный массив A(N) Отсортировать массив по убыванию. Найти творенье частей массива кратных 7.
2.Дан одномерный массив B(N) Добавить в конец массива элемент, одинаковый сумме всех значений элемента массива.
3. Дан одномерный массив C(N) Сформировать новый массив B, состоящий из частей массива C, превосходящий данное число а; выведите на печать интеллигентный массив и число его частей.
1 ответ
Аделина Сутулина
// PascalABC.NET 3.2, сборка 1437 от 03.05.2017
// Внимание! Если программка не работает, обновите версию!
begin
var a:=ArrRandom(ReadInteger('n='),-99,99); a.Println;
a:=a.SortedDescending.ToArray; a.Println;
Writeln('П=',a.Where(k-gt;k mod 7=0).DefaultIfEmpty
.Aggregate(1,(i,j)-gt;i*j))
end.
Пример
n= 15
80 -59 89 66 -88 -50 -16 -30 -65 -75 28 -51 56 35 36
89 80 66 56 36 35 28 -16 -30 -50 -51 -59 -65 -75 -88
П=54880
begin
var b:=ArrRandom(ReadInteger('n='),-99,99); b.Println;
b:=b+Arr(b.Sum); b.Println
end.
Пример
n= 15
-36 98 64 -21 -8 57 -52 56 -58 -66 -1 -60 13 22 -79
-36 98 64 -21 -8 57 -52 56 -58 -66 -1 -60 13 22 -79 -71
begin
var c:=ArrRandom(ReadInteger('n='),-99,99); c.Println;
var a:=ReadInteger('a=');
var b:=c.Where(x-gt;xgt;a).ToArray;
Write('B[',b.Count,']='); b.Println
end.
Пример
n= 16
58 -91 12 -48 -42 1 -73 5 -47 99 -80 55 -10 31 -62 0
a= 10
B[5]=58 12 99 55 31
// Внимание! Если программка не работает, обновите версию!
begin
var a:=ArrRandom(ReadInteger('n='),-99,99); a.Println;
a:=a.SortedDescending.ToArray; a.Println;
Writeln('П=',a.Where(k-gt;k mod 7=0).DefaultIfEmpty
.Aggregate(1,(i,j)-gt;i*j))
end.
Пример
n= 15
80 -59 89 66 -88 -50 -16 -30 -65 -75 28 -51 56 35 36
89 80 66 56 36 35 28 -16 -30 -50 -51 -59 -65 -75 -88
П=54880
begin
var b:=ArrRandom(ReadInteger('n='),-99,99); b.Println;
b:=b+Arr(b.Sum); b.Println
end.
Пример
n= 15
-36 98 64 -21 -8 57 -52 56 -58 -66 -1 -60 13 22 -79
-36 98 64 -21 -8 57 -52 56 -58 -66 -1 -60 13 22 -79 -71
begin
var c:=ArrRandom(ReadInteger('n='),-99,99); c.Println;
var a:=ReadInteger('a=');
var b:=c.Where(x-gt;xgt;a).ToArray;
Write('B[',b.Count,']='); b.Println
end.
Пример
n= 16
58 -91 12 -48 -42 1 -73 5 -47 99 -80 55 -10 31 -62 0
a= 10
B[5]=58 12 99 55 31
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
Игорь 14 лет назад был на 8 лет моложе, чем его
Математика.
Два тела массами m1 и m2 находящие на расстоянии R друг
Физика.
В сосуде 4целых одна пятая литр воды что бы заполнить сосуд
Математика.
Двум малярам Диме И Олегу поручили выкрасить фасад дома они разделили
Разные вопросы.
найти порядковый номер 41Э если в ядре 20 нейтронов
Разные вопросы.
в ряду натуральных чисел 3, 8, 10, 24, … 18 одно
Математика.
Предприятие по производству с/хоз продукции на производство затратило 3527000 руб Валовый
Разные вопросы.
Математика, задано на каникулы. ВАРИАНТ 1004
НОМЕР 1,2,3,4,5,6,7,8.
Математика.
Имеются три конденсатора емкостью С1=1мкФ, С2=2мкФ и С3=3мкФ. Какую наименьшую емкость
Физика.
Из точки м выходят 3 луча MP MN и MK причём
Геометрия.
Облако тегов