Developing.ru

Дан масив целых чисел.Найти число элементов масива,которые больше свомх "соседей",т.е предшествующего элементов.

vladimirr писал(а):Дан масив целых чисел.Найти число элементов масива,которые больше свомх "соседей",т.е предшествующего элементов.

Соседи это наверно: a < b > c ..... т.е. "b" больше "c" и "b" больше "a" ? Если не так, то не вводите в заблюждение и формируйте вопрос верно. Код ниже, если что, одно условие, которое вам не нужно, уберете. + первый элемент массива не учавствует в отборе.

[syntax='Pascal']
uses
Crt;
var
a:array[1..50] of integer;
i,j:integer;
begin
ClrScr;
randomize;
j:=0;
for I := 1 to 10 do
a:=random(20);
for I := 1 to 10 do
write(a,' ');
writeln;
writeln;
for I := 1 to 10 do
if (a>a[i+1]) and (a>a[i-1]) and (i<>1) then
begin
inc(j);
writeln(a[i-1],' < ',a,' > ',a[i+1]);
end;
writeln;
writeln('chislo elementov bolshe sosedei = ', j);
readln;
end.
[/syntax]

vladimirr получает устное предупреждение за ненадлежащее название темы.