Геннадий создает мультипликационный ролик, где каждый кадр – отдельно отрисованная картинка. Известно, что каждая картинка имеет разрешение 640х480 пикселей и цветовую палитру в 2^16 = 65536 цветов. Каждый пиксель кодируется с минимально возможного и одинакового для всех пикселей количества бит. Картинки записываются одна за другой без разделителей и заголовков файла. Частота смены кадров в конечном ролике – 24 кадра/сек. В качестве звукового сопровождения выбран формат стерео с глубиной кодирования 10 бит и частотой дискретизации 40 кГц. Найдите размер мультфильма в МБайтах, если известно, что его длительность 5 минут. В качестве ответа укажите число – минимальное целое количество Мбайт достаточное для хранения такого файла.
Затем производится поиск максимума среди Dat[1], Dat[8..12] (стандартный алгоритм: в m хранится текущий максимум, в month – номер месяца, в котором этот максимум впервые реализуется. Перед циклом m = Dat[1], month = 1, в цикле если элемент массива больше текущего максимума, то текущий максимум и номер месяца перезаписываются).
Наконец, выводится month – номер месяца, в котором впервые количество детских праздников достигает максимума.
Максимальное значение равно 8, впервые встречается среди Dat[1], Dat[8..12] в Dat[9].
ответ: 9.
var
A: array[1..10] of integer;
i, Count: byte;
sum: integer;
begin
randomize;
writeln('Сгенерированный массив');
for i := 1 to 10 do
begin
A[i] := random(8)-3;
if A[i] < 0 then
sum := sum + A[i];
write(A[i],' ');
end;
writeln;
writeln('Сумма отрицательных элементов = ', sum);
writeln;
writeln('Измененный массив');
for i := 1 to 10 do
begin
if A[i] >= 0 then
begin
A[i] := 0;
Count := Count + 1;
end;
write(A[i], ' ');
end;
writeln;
writeln('Количество нулевых элементов = ', Count);
end.