Не за что, надеюсь в ответ тоже будет благодарность. Прикреплен еще исходник
varn,i,min,c:integer;
a:array [1..100] of integer;
begin
n:=6;for i:=1 to n do
begin
writeln ('vvedi element massiva');
readln (a[i]);
end;
min:=a[1];
c:=1;
for i:=2 to n do
begin
if min>a[i] then begin min:=a[i];c:=i; end;
end;
writeln ('min=', min, ' nomer=',c);
readln;
<span>end.</span>
3 задача
N=30 символов => 32=2 в 5 степени >=30
один символ кодируется 5 битами, 3 символа 3*5=15 битов.
Сказано, что каждый шифр кодируется целым числом байтов
2байта=16 бит>= 15 бит
всего 100 шифров, => 2*100=200 байт
Assign<span> – устанавливает связь между именем файла в программе (файловой переменной ) и физическим именем файла, принятым в ОС.</span>
Reset - открывает существующий файл для чтения.
Rewrite<span> – создает и открывает новый файл для записи на внешнем устройстве (если файл ранее существовал, вся предыдущая информация из него стирается).</span>
Close<span> - закрывает открытый файл.</span>
1. 62 (1) -> 2
2. 2 (2) -> 4
3. 4 (2) -> 16
4. 16 (1) -> 6
5. 6 (2) -> 36
Ответ: 12212