var
FD: text;
y, step, first, last: real;
begin
write('Введите начальное значение, конечное значение и шаг:');
read(first, last, step);
assign(FD, 'tabl.txt');
rewrite(FD);
writeln(FD, 'x':4, 'f(x)':10);
while (first <= last) do
begin
if (first.Between(0.41, 0.58)) then
writeln(FD, first:4:2, 'infinity':10)
else
begin
y := (2 * first + 1) / (2 * first - 1);
writeln(FD, first:4:2, y:10:4);
end;
first := first + step;
end;
close(FD);
end.
Если правильно поняла суть вашей программы, то нужно вводить количество элементов массива с клавиатуры (массив заполняется рэндомно от -10 до 10) и вывести элементы больше 0 . Вас в цикле for зачем-то понесло на второе условие if(a[r+1]<0) это неверно, цикл сам переберет все значения. Примерный код:
static void znaki(int[] a)
{
//Массив до изменений этот код можно удалить
//Выводит весь массив со всеми значениями
for (int i = 0; i < a.Length; i++)
{
Console.Write(a[i]+" ");
}
Console.WriteLine();
//
for (int r = 0; r < a.Length-1; r++)
{
if (a[r] >= 0)
{
if (a[r + 1] <= 0)
{
Console.WriteLine("Пара: "+a[r]+" " +a[r+1]);
}
}
if (a[r] <= 0)
{
if (a[r + 1] >= 0)
{
Console.WriteLine("Пара: " + a[r] +" " + a[r + 1]);
}
}
}
}
static void Main(string[] args)
{
Console.WriteLine("введите количество элементов в массиве:");
int n = Convert.ToInt32(Console.ReadLine());
int[] a = new int[n];
Random rand = new Random();
for (int i = 0; i < a.Length; i++)
{
a[i] = rand.Next(-10,10);
}
znaki(a);
Console.ReadLine();
}