В 1 кбите 1000 бит (см. ГОСТ 8.417-2002, Приложение А, табл. А.1, хотя некоторые учителя и учебники все еще ошибочно считают, что в килобите 1024 бита).
Поэтому 2 кбита = 2 х 1000 = 2000 бит.
В 1 байте 8 бит, тогда 2000 бит = 2000 / 8 = 250 байт
Само собой, числа a1..an надо поместить в массив. Если его упорядочить по возрастанию (или убыванию), то элементы с одинаковыми значениями окажутся рядом и их легко будет пропустить.
var
a:array[1..n] of integer;
i,j,t:integer;
begin
{ инициализация массива }
Randomize;
Writeln('Элементы массива');
for i := 1 to n do
begin
a[i]:=Random(10);
Write(a[i]:3);
end;
Writeln;
{ сортировка по возрастанию методом пузырька }
for i := 1 to n-1 do
for j := 1 to n-i do
if a[j] > a[j+1] then
begin t := a[j]; a[j] := a[j+1]; a[j+1] := t end;
{ вывод неповторяющихся значений }
Writeln('Уникальные значения элементов');
t:=a[1]; Write(t:3);
for i:=2 to n do
if a[i]<>t then begin t:=a[i]; Write(t:3) end;
Writeln
end.
<em><u>Тестовое решение:</u></em>
Элементы массива
9 6 1 6 1 4 5 9 1 2 6 7 7 6 1 7 7 8 0 8
Уникальные значения элементов
0 1 2 4 5 6 7 8 9
1. b
2. b
3. a) 5
б) 6
в) 1
г) 3
д) 8
4. f[3] = -3 * (2 - 3) = 3
f[5] = -5 * (2 - 5) = 15
f[3] + f[5] = 3 + 15 = 18
5. N[2] + N[4] * N[5] - N[3] = 3 + 10 * 9 - 5 = 3 + 90 - 5 = 88
6. Программа создаёт массив всех чётных натуральных чисел до 20 включительно, затем выводит каждое с нечётным порядковым номером через пробел.
2 6 10 14 18
