1.1 Кодирование растрового изображенияРастровое изображение представляет собой совокупность точек, используемых для его отображения на экране монитора. Объем растрового изображения определяется как произведение количества точек и информационного объема одной точки, который зависит от количества возможных цветов. Для черно-белого изображения информационный объем одной точки равен 1 биту, так как точка может быть либо черной, либо белой, что можно закодировать двумя цифрами — 0 или 1. Для кодирования 8 цветов необходимо 3 бита; для 16 цветов — 4 бита; для 64 цветов — 8 битов (1 байт) и т.д.
var a: array[1..nn] of integer; m, n, max, min, i, kn, kz, kp, kt, nmax, nmin, t: integer;
begin Write('Задайте количество элементов в массиве (1-50): '); Readln(n); Write('Введите значение для поиска: '); Readln(t); Writeln('Введите элементы массива'); max := -32768; min := 32767; kn := 0; kz := 0; kp := 0; kt := 0; for i := 1 to n do begin Read(m); if max < m then begin max := m; nmax := i end else if min > m then begin min := m; nmin := i end; if m < 0 then Inc(kn) else if m = 0 then Inc(kz) else Inc(kp); if m = t then Inc(kt); a[i] := m end; m := a[nmax]; a[nmax] := a[nmin]; a[nmin] := m; Writeln('Результирующий массив'); for i := 1 to n do Write(a[i], ' '); Writeln; Writeln('Количество элементов, равных ', t, ': ', kt); Writeln('Количество отрицательных элементов равно ', kn); Writeln('Количество нулевых элементов равно ', kz); Writeln('Количество положительных элементов равно ', kp) end.
Тестовое решение: Задайте количество элементов в массиве (1-50): 13 Введите значение для поиска: 7 Введите элементы массива 15 -6 11 0 7 0 18 -7 -3 -4 7 0 12 Результирующий массив 15 -6 11 0 7 0 -7 18 -3 -4 7 0 12 Количество элементов, равных 7: 2 Количество отрицательных элементов равно 4 Количество нулевых элементов равно 3 Количество положительных элементов равно 6
