Если правильно поняла суть вашей программы, то нужно вводить количество элементов массива с клавиатуры (массив заполняется рэндомно от -10 до 10) и вывести элементы больше 0 . Вас в цикле for зачем-то понесло на второе условие if(a[r+1]<0) это неверно, цикл сам переберет все значения. Примерный код:
Если правильно поняла суть вашей программы, то нужно вводить количество элементов массива с клавиатуры (массив заполняется рэндомно от -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();
}
program raf105;
var v:array[1..6] of real;
i,j,kolvo,n:integer;
abc:real;
begin
writeln('Введите 6 значений по очереди: ');
for i:=1 to 6 do
read(v[i]);6
for j:=1 to 6 do
begin
for i:=1 to 6 do
begin
if (v[j]-v[i]) > 0
then kolvo:=kolvo+1;
end;
if kolvo=5
then n:=j
else kolvo:=0;
end;
writeln();
writeln('Ввод:');
for i:=1 to 6 do
write(' ',v[i]);
abc:= v[n];
v[n]:= v[1];
v[1]:= abc;
writeln();
writeln('Вывод:');
for i:=1 to 6 do
write(' ',v[i]);
end.
Написано на языке PascalABC.NET