8 Кб =1024 байта = 8192 бита
Unicode в задачах по инф. это 2 байт вес симв или 16 бит.
100*128*256*2 байт симв = 6553600 байт объём (вес) файла.
Var
a:array [1..100] of integer;
i:integer;
begin
randomize;
write('массив:');
writeln;
begin
for i:=1 to 100 do
a[i]:=random (40)-20;
end;
for i:=1 to 100 do
writeln(a[i]);
end.
Исполнителями алгоритма на мой взгляд являются В и С