Задача не оптимальная и бредовая, что значит заменить все буквы? Удалить елемент, а затем на его место вставить новый, или просто заменить контекст одной буквой на вторую? Все это елементарно лечится отсеиванием ещё до внесения в список, зачем предпренимать лишние телодвижения?.. Тем не менее код в соотвествии с ТЗ, наверное
720:180 =4 бита - один символ
2^4=16 символов в алфавите (мощность алфавита)
То есть 1 буква это 4 бита.
Много букв = много битов = большой обьём памяти.
Вся информация на компьютере представлена в двоичном коде, т.е. последовательностью нулей и единиц - для каждой буквы своя последовательность, все последовательности в одном алфавите равны по длине. Из этого следует, что чем больше длинна последовательности в алфавите, тем больше их можно составить. Например, последовательностей в 2 бита можно составить 4: 00 01 10 11.
В 3 - уже 8: 000 001 010 011 100 101 110 111 - всего 8 символов(возможных последовательностей, или же - мощность алфавита) и на каждый символ уходит 3 бита - вес символа.
Const n = 15;
var a:array[1..n]of integer;
i,m,min5:integer;
f:boolean;
begin
for i:=1 to n do begin
write('Введите ',i,' член массива ');
readln(a[i]);
if a[i] mod 5=0 then begin
m:=m+1;
if not f then begin
min5:=a[i];
f:= not f;
end;
if (f) and (a[i]<min5) then min5:=a[i];
end;
end;
writeln('Кратных 5: ',m:3,' Минимальный: ',min5:4);
end.
Тестовое решение
Введите 1 член массива 13
Введите 2 член массива 10
Введите 3 член массива 15
Введите 4 член массива 5
Введите 5 член массива 25
Введите 6 член массива 23
Введите 7 член массива 12
Введите 8 член массива 32
Введите 9 член массива 11
Введите 10 член массива 21
Введите 11 член массива 43
Введите 12 член массива 15
Введите 13 член массива 25
Введите 14 член массива 13
Введите 15 член массива 14
Кратных 5: 6 Минимальный: 5
