Goto

[Avvakymova]

Помогите,пожалуйста.
Дано n вещественных чисел.Определить,сколько из них больше своих соседей,т.е предыдущего и последующего.Через оператор Goto.

[Вадим Мошев]

Это кто вам задал задачу на оператор GOTO?
Насколько мне известно, он имеет дурную славу. вам точно надо через него? Можно же обойтись обычным IF

[Avvakymova]

Это в универе нам задали.И делать её нужно именно через GOTO

[Alex11223]

Насколько мне известно, он имеет дурную славу.

Из-за того, что, как правило, его использование ухудшает читаемость кода т.е. практически любой алгоритм с goto можно реализовать с использованием других операторов вместо goto, и этот код скорее всего будет более понятным.

Числа, кстати, в каком виде даны?) Массив, файл? Что делать с 1 и последним числом? Где ваши наработки?

Если все-таки действительно надо с использованием goto, то наверно как-то так. Надеюсь, остальное сами допишете.

i:=1;  //если без первого и последнего числа и числа хранятся в массиве
1:
i:=i+1;
if ( arr[i-1 > arr[i] ) and ( arr[i+1] > arr[i] ) then c:=c+1;
if ( i<n ) then goto 1;

[rus12]

Сообщение от Alex11223

i:=1;  //если без первого и последнего числа и числа хранятся в массиве

Скорее без массива:

label
metka;
var n,i,k:integer;
  a,b,c:real;
begin
repeat
write('kollichestvo chisel ne menee  3 n=');readln(n);{запрашиваем количество вводимых чисел}
until n>=3;
writeln('vvedite ',n,' veschestvenih chisel');
k:=0;
i:=2;
readln(a);
readln(b);
metka:
i:=i+1;
begin
readln(c);
  if (b>a)and(b>c) then k:=k+1;
  a:=b;
  b:=c;
end;
 if i<>n then goto metka;
write('chisel bolshe svoih sosedei=',k);
readln
end.