Хранить записанные данные и предоставлять их для чтения.
<em>// PascalABC.NET 3.2, сборка 1504 от 09.07.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(ReadInteger('n='),0,99); a.Println;
var s:=a.Partition(x->x.IsEven);
if s[0].Count<=s[1].Count then Writeln(s[0].Min)
else Writeln(s[1].Min)
end.
<u>Примеры</u>
n= 9
33 43 60 94 5 19 84 58 6
5
n= 10
54 55 71 65 79 88 71 98 8 71
8
Объем изображения I= k*i, где k- количество пикселей, i- глубина цвета
Глубина цвета i=㏒₂N, где N - количество цветов изображения
k=256*128= 32768
i=㏒₂16=4
I=32768*4= 131072 бит
131072 бит/8= 16384 байт
16384 байт/1024= 16 Кбайт
Ответ: 16 Кбайт
Var n,k,m,p: integer;
<span>begin
</span><span> write('n = '); readln(n);
</span><span> k:=0; p:=0;
</span><span> while k<n do
</span><span> begin
</span><span> read(m);
</span><span> if m mod 3 = 0 then p:=p+1;
</span><span> k:=k+1;
</span><span> end;
</span><span> writeln('количество чисел, кратных 3: ',p);
</span><span>end.
</span>n = 6
<span>10 -13 14 -15 21 23
</span><span>количество чисел, кратных 3: 2
</span>
1. System 32. Рабочий стол.
2. Мой компьютер, Мои документы, Корзина, Сетевые окружения(Сеть) и управляющие объекты Windows.