надеюсь разберетесь что тут к чему, этот кусок кода нужно вставить после строки for i := 1 to n do writeln(r[i]); {Найденный массив}, а после этого вывести измененный массив, сами допишите. Если что-то не понятно смотрите текстовый файл во вложении.
Pascal ABC. Процедура.
-----------------------------------------------------
var
N:longint;
min:longint;
count: byte;
tmp, z: longint;
procedure MinAndCount(var a: longint);
begin
readln(N);
z := N;
count := 0;
min:=10;
while N<>0 do
begin
if n mod 10 < min then
min := n mod 10;
n := n div 10;
end;
tmp := min;
while z<>0 do
begin
if (z mod 10)=tmp then inc(count);
z:=z div 10;
end;
writeln('Самая маленькая цифра = ',min, ' встречается = ', count, ' раз(а).');
readln;
end;
begin
write('Введите число: ');
MinAndCount(N);
end.
А) при x ∈ [-3;8];
б) при x ∈ (- бесконечности;-3)V(8;+бесконечности).
Пока это не очень серьёзно,но надо быть на стороже,т.к у меня тоже асус и был похожий случай,я не следила,перенагружала зарядку и теперь батарея держит лишь 5 мин!