Вариант в Excel 2003.
В условии возможно ошибка, так как есть диапазон цен, где налог равен 0%.
Слово "Алгоритм" происходит от имени известного узбекского учёного Мухаммед аль-Хорезми.
//PascalABC.NET
//Версия 3.3.5, сборка 1650
begin
var a:=ArrRandom(30,-100,100).Println;
writeln('положительные числа кратные 5:');
a.Where(x->(x mod 5=0) and (x>0)).Println;
end.