Необходимо выбрать путь файла (туда где основная конфигурация игры будет)... Если ты это сделала, но кнопка далее не нажимается, то следует прояснить пару пунктов
1: Либо выбранный диск полон
2:Не не согласилась на условия пользования
3:Выбранная папка заблокирована или находится на сокрытом диске...
Проверяй пункты. Если и так не пойдет, то советую скачать другой RePack
1.Мощность - 52, значит 5 символв для кодирования 1 символа не хватит, т.к 2^5<52, а вот 2^6=64>52, значчит нам как раз подходит (то что больше это не важно главное чтоб хватало, и меньше не было) значит 1 сивол занимает 6 бит информации, значит 3000 сиволов занимают 3000*6 бит информации, = 18000 бит /8 = 2 250 байт. это чуть больше 2 Кбайт.
2. 256 = 2^8, значит 1 символ содержит 8 бит информации. 1 Мбайт = 2^23 бит, значит 2^23/2^5=2^17 бит. Значит символов у нас 2^17/2^3= 2^14, это 16 384 символа. ПРости забыл обозначения) поэтому только так
var A: array[1..nmax] of integer; I, m, s: integer; Am, kon: text;
begin Clrscr; Assign(Am, 'Am.txt');
{раскоментировать для записи массива в файл} {Rewrite(Am); m := Random(nmax - 5) + 5; for i := 1 to m do Writeln(Am, Random(20)); Close(Am);}
{считывание данных из файла} Reset(Am); s := 0; m := 0; while not eof(Am) do begin m := m + 1; Readln(Am, A[m]); s := s + A[m]; end; Close(Am);
Assign(kon, 'kon.txt'); Rewrite(kon);
if s > 50 then Writeln('Сумма элементов массива более 50 и равна: s=', s) Else begin Writeln('Сумма элементов менее 50, вывод исходного массива'); for i := 1 to m do begin Writeln('A[', i, ']=', A[i], ' '); Writeln(kon, 'A[', i, ']=', A[i], ' '); end; end;
ответ
Необходимо выбрать путь файла (туда где основная конфигурация игры будет)... Если ты это сделала, но кнопка далее не нажимается, то следует прояснить пару пунктов
1: Либо выбранный диск полон
2:Не не согласилась на условия пользования
3:Выбранная папка заблокирована или находится на сокрытом диске...
Проверяй пункты. Если и так не пойдет, то советую скачать другой RePack
Объяснение: