// PascalABC.Net 3.0, сборка 1066
begin
var n:=ReadInteger('Количество элементов массива: ');
var a:=ArrRandom(n,-10,10);
Writeln('Исходный массив: ',a);
Writeln('Максимумов: ',a.Where(x->x=a.max).Count)
end.
<em><u>Тестовое решение:</u></em>
Количество элементов массива: 20
Исходный массив: [5,-4,-9,-5,-10,10,10,-9,1,-8,0,-6,0,6,-3,-10,-2,2,-9,10]
Максимумов: 3
1. Свойство по высоте, направление убывание.
2. Свойство по количеству лепестков, направление убывание.
n = high*width, где n - кол-во структурных единиц изображения(пикселей)
I = i * n * a * t, где I - информационный объем этого файла, a - частота обновления экрана (Гц), t - продолжительность видео (сек)
p = 2^i, где p - кол-во цветов в палитре
1) n = 800*600 = 480 000;
2) i = 8
3) I = 480 000 * 8 * 60 * 60 = 13 824 000 000 бит = 1 728 000 000 байт =
= 1 687 500 Кб ≈ 1648 Мб ≈ 1.6 Гб
Ответ: 1.6 Гб
Пусть x - основание системы счисления, тогда
2*x²+4*x+4=202
<span>Решив квадратное уравнение, получим x=9 (подходит только положительный корень)</span>