begin
var n := ReadInteger('n =');
var a := ArrRandom(n, -99, 99);
a.Println;
var b := a.Where(p -> p > 0).Sorted.ToArray;
if b.Length > 0 then
begin
var j := 0;
for var i := 0 to a.High do
if a[i] > 0 then begin
a[i] := b[j];
j += 1
end
else
a[i] := 0
end;
a.Println
end.
С клавиатуры вводятся разные числа и записываются в переменную (либо рандом заполнение)
после вводиш с клавиатуры цифру количество повторений которой будем искать
тоесть программа должна найти сколько раз повторяется в тексте определенная цифра
64·40·64 = 2^6·5·2^3·2^6 = 5 · 2^15
5·2^15 байт = 5·2^5 килобайт = 160 Кб