Напишите программу на pascal. задан массив b[10]. заполнить массив случайными числами(-10..10). вывести на экран в строчку через пробел. вычислить сумму всех элементов массива и кол-тво чисел кратных двум.
// PascalABC.NET 3.2, сборка 1338 от 16.11.2016 begin var b:=ArrRandom(10,-10,10); b.Println; Writeln('Сумма элеменов массива равна ',b.Sum); Writeln('Количество четных чисел равно ',b.Count(x->x.IsEven)) end.
Пример 1 10 3 -4 -10 -1 -6 0 -4 9 Сумма элеменов массива равна -2 Количество четных чисел равно 6
Берем третьи байты и переводим в двоичную систему счисления:добавим в начале нулей, чтобы получилось 8 цифр. ← ← найдем маску. запишем с столбик. если элементы одинаковые, ставим соответствующее число, если элементы разные, ставим крестик: 00000101 00011101 000xx101 ← маска т.к. по правилу в маске, сначала идут единицы, переместим их в начало: 11xx0000 если бы по условию, надо было бы найти наименьшее возможное значение, то мы бы заменяли крестики(х) на нули. т.к. по условию необходимо наибольшее возможное значение, подставляем вместо крестиков(x), единицу и переведем в десятичную систему счисления:
Пусть в "долях" a < = b < = c вершин, и проведены все рёбра между разными "долями". так как из каждой вершины, лежащей в первой "доле", можно провести только b + c рёбер, из второй доли — a + c рёбер, из третьей — a + b рёбер, то общее количество рёбер равно (a * (b + c) + b * (a + c) + c * (a + b))/2 = ab + ac + bc (деление на 2 возникает из-за того, что каждое ребро подсчитывается дважды). нужны такие a, b, c, при которых значение выражения ab + bc + ac будет максимально. максимальное значение можно найти перебором. python 3: max_value = 0 for a in range(40//3 + 1): for b in range(a, (40 - a)//2 + 1): c = 40 - a - b value = a * b + a * c + b * c max_value = max(max_value, value) print(max_value) ответ. 533
begin
var b:=ArrRandom(10,-10,10); b.Println;
Writeln('Сумма элеменов массива равна ',b.Sum);
Writeln('Количество четных чисел равно ',b.Count(x->x.IsEven))
end.
Пример
1 10 3 -4 -10 -1 -6 0 -4 9
Сумма элеменов массива равна -2
Количество четных чисел равно 6