Определить количество элементов в заданном массиве, отличающихся от минимального на 5.

ar[i]+5=min никогда не сработает, потому что для этого ar[i] должно быть меньше минимума, а это бессмыслица.

//Pascal ABC.NET 3.1 сборка 1256Const n=10;Var ar:array[1..n] of integer; i,k,min:integer;beginmin:=integer.MaxValue;writeln('Array:');for i:=1 to n dobegin readln(ar[i]); if ar[i]<min then min:=ar[i];end;for i:=1 to n doif ar[i]-5=min then inc(k);writeln(k);end.

// PascalABC.NET 3.1, сборка 1256 от 21.06.2016begin  var a:=ArrRandom(ReadInteger('n='),-10,10); a.Println;  var mn:=a.Min;  Writeln('Количество элементов, отличающихся от минимального на 5: ',    a.Where(x->(x-mn=5)).Count)end.Тестовое решение:n= 155 9 -10 4 10 -2 -2 -5 6 -10 1 -5 -9 -1 -1Количество элементов, отличающихся от минимального на 5: 2