Исходная программа была совершенно безумной, пришлось поправить.
program lab3;
label
loop,fin;
var
x,y:real;
begin
writeln('vvedite x'); readln(x);
loop:
if x>1 then goto fin;
if 1.5*x<1 then y:=1.5*x-ln(1.5*x)/ln(10)
else
if 1.5*x>1 then y:=1.5*x+ln(1.5*x)/ln(10)
else y:=1;
writeln('x=',x:0:1,', y=',y:5:3);
x:=x+0.1;
goto loop;
fin:
end.
#include <iostream>
using namespace std;
int main() {
int n=10,k=0;
int a[n];
srand(time(NULL));
cout<<"array:"<<endl;
for (int i=0; i<n; i++)
{
a[i]=rand() % 6;
cout<<a[i]<<" ";
}
cout<<endl;
for (int i=0; i<n-1; i++)
if (a[i]==a[i+1]) {
k++;
if (k==1) cout << "Есть: ";
cout<<a[i]<<" ";
}
if (k==0) cout << "нет";
system("pause");
return(0);
}
Пример:
<span>array:
0 5 5 0 2 5 2 4 0 5
Есть: 5 </span>
Const
n = 20;
var
a: array[1..n] of integer;
i: integer;
flag: boolean;
begin
Randomize;
Writeln('Элементы массива');
for i := 1 to n do
begin
a[i] := Random(19999) - 9999;
Write(a[i]:6);
end;
Writeln;
i := 1;
flag := False;
repeat
flag := (sign(a[i]) = sign(a[i + 1]));
i := i + 1
until flag or (i > n);
if flag then Writeln('Есть пара соседних элементов с одним знаком')
else Writeln('Нет пар соседних элементов с одним знаком')
end.
<u>Тестовое решение:</u>
Элементы массива
2440 -2414 -3192 -6912 -8537 7364 2869 -2505 8875 2662 401 7398 2213 8804 2039 1485 4213 8359 -2410 -5844
Есть пара соседних элементов с одним знаком
Управляющий объект- Полиционер
Объект управления- машины
Цель управления- Не должна произойти авария
Управляющее воздействие- графическое сообщение