Если правильно поняла суть вашей программы, то нужно вводить количество элементов массива с клавиатуры (массив заполняется рэндомно от -10 до 10) и вывести элементы больше 0 . Вас в цикле for зачем-то понесло на второе условие if(a[r+1]<0) это неверно, цикл сам переберет все значения. Примерный код:
Function t10_q(x,q:longint):string; const s='0123456789ABCDEFGHI'; var t,m:longint; r:string; begin t:=x; r:=''; while t>=q do begin m:=t mod q; r:=s[m+1]+r; t:=t div q end; t10_q:=s[t+1]+r end;
{ тестирование } var q,n:longint; begin Write('Введите основание системы счисления (2-20): '); Readln(q); Write('Введите натуральное число для перевода: '); Readln(n); Writeln(n,'(10)=',t10_q(n,q),'(',q,')') end.
Тестовое решение: Введите основание системы счисления (2-20): 16 Введите натуральное число для перевода: 16350 16350(10)=3FDE(16)
Если правильно поняла суть вашей программы, то нужно вводить количество элементов массива с клавиатуры (массив заполняется рэндомно от -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();
}