посмотрите пжс прогу, чуток не работает

[prelest']

var
a:array[1..100] of reaL;
i,n,min:integer;
begin
write('Razmernost'' massiva: ');
readln(n);
for i:=1 to n do
readln(a[ i ]);
min := 0;
for i:=1 to n do
begin
if (i=n) and (a[ i ] < a[ i-1 ]) then min := i;
if (i < n) and (a[ i ] < a[ i-1 ])and(a[ i ] < a[ i+1 ]) then min := i;
end;
if min =0 then writeln('нету') else
writeln(a[min]);
end.

Дан массив размера N. Найти номер его первого локального минимума (локальный минимум это элемент, который меньше любого из своих соседей).

[Alex11223]

Зачем вы выводите a[min]? Номер же надо.
Что-то не очень понял, что вы в цикле делаете, но мне кажется, что должен быть 1 if, а не 2? т.е. как-то так.

if ... then 
    if ... then
    begin
       ...;
       ...;
    end;

И выходить из цикла, когда найден первый минимум (break).

[stck]

Сообщение от prelest'

меньше любого из своих соседей

Любого? Тогда при проверке AND замените на OR

[prelest']

ну Алексей помоги пожалуйста тупой курице-мне...эту прогу правильно написать...как полностью будет правильно? от начала до конца

[prelest']

var
a:array[0..1000] of reaL;
i,n,min:integer;
begin
 write('Razmernost'' massiva: ');
readln(n);
for i:=1 to n do 
readln(a[ i ]);
min := 0;
for i:=1 downto n do
begin
if (a[i]<a[i-1])or(a[i]<a[i+1])then min:=i;
end;
writeln(min);
end.

вот смотрите...что тут не хватает?

[prelest']

var
a:array[1..1000] of real;
i,n,min:integer;
begin
write('Razmernost'' massiva: ');
readln(n);
for i:=1 to n do
readln(a[ i ]);
min := 0;

for i:=2 to N-1 do
if (a[i]<a[i-1])and(a[i]<a[i+1])then min:=i;

writeln('min = ',min);
end.


вот все правильный код, может в дальнейшем кому приголится)

[Alex11223]

if (a[i]<a[i-1])and(a[i]<a[i+1])then min:=i;

Если любого из соседей, то or, а не and надо, как уже выше написали. Но мне кажется, вы условие неправильно переписали и должно быть меньше обоих соседей, тогда все правильно.

[prelest']

Ребят, а может мне безвозмездно решить вот эту задачку, если конечно вас не затруднит девушке помочь:
Дан целочисленный массив размера N. Удалить из массива все элементы, встречающиеся менее трех раз, и вывести размер полученного массива и его содержимое.