Одномерный массив, убывающая последовательность (FreePascal)

[Malloperro]

Дан одномерный массив числовых значений, насчитывающий N элементов. Определить образуют ли элементы массива, расположенные перед первым нулевым элементом убывающую последовательность.

[andrewpalkin]

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

Дан одномерный массив числовых значений, насчитывающий N элементов. Определить образуют ли элементы массива, расположенные перед первым нулевым элементом убывающую последовательность.

Что именно не получилось сделать , так как это не сложная задача, не думаю , что тебе нужна наша помощь !

[Malloperro]

мы в школе программирование не изучали.. я вообще ноль.. =(
у меня есть решенная задача с возрастающей последовательностью.... если там что-то исправить, то получится?

[andrewpalkin]

Если что-то исправить , то получится

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

[Serge_Bliznykov]

ну а в чём проблема то?
Вводите элементы массива.

Потом i:=2 и цикл, пока (i<=N) и (A[i]<>0) and (A[i-1]>A[i])
(последнее условие как раз проверка на убывание.)
в цикле только Inc(i)

дальше.
после выхода из цикла надо проверить,
Если i>N - значит дошли до конца, нулевых элементов вообще нет и все имеющие элементы образуют убывающую последовательность,
иначе (если i<=N) -
тогда проверяйте - A[i] = 0 если да - дошли до нулевого элемента - имеющие элементы образуют убывающую последовательность
иначе - НЕТ ,не образуют...

думаю, что идея понятна. (я дольше словами расписывал, чем программу писать! )

[Malloperro]

ну как кто? преподаватель)

uses crt;
const nmax=30;
var a:array[1..nmax] of integer;
n,i,i1:byte;
f:boolean;
begin
clrscr;
repeat
write('Размер массива до ',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln('Введите элемеенты массива, в том числе ноли:');
for i:=1 to n do
begin
write('a[',i,']=');
readln(a[i]);
end;
clrscr;
writeln('Массив:');
for i:=1 to n do
write(a[i]:4);
writeln;
writeln;
i1:=0;
i:=1;
while(i<=n)and(i1=0) do
if a[i]=0 then i1:=i
else i:=i+1;
if i1=0 then write('В массиве нет нолей')
else if i1=1 then write('Ноль первый')
else
begin
f:=true;
i:=2;
while(i<i1)and f do
if a[i]<=a[i-1] then f:=false
else i:=i+1;
if f then write('Элементы до первого ноля образуют возрастающую последовательность')
else write('Элементы до первого ноля не образуют возрастающую последовательность');
end;
readln
end.

вот задача с возрастающей последовательностью... что тут поменять нужно?)

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

ну а в чём проблема то?
Вводите элементы массива.

Потом i:=2 и цикл, пока (i<=N) и (A[i]<>0) and (A[i-1]>A[i])
(последнее условие как раз проверка на убывание.)
в цикле только Inc(i)

дальше.
после выхода из цикла надо проверить,
Если i>N - значит дошли до конца, нулевых элементов вообще нет и все имеющие элементы образуют убывающую последовательность,
иначе (если i<=N) -
тогда проверяйте - A[i] = 0 если да - дошли до нулевого элемента - имеющие элементы образуют убывающую последовательность
иначе - НЕТ ,не образуют...

думаю, что идея понятна. (я дольше словами расписывал, чем программу писать! )

спасибо)) но даже Это мне трудно понять.. я с Паскалем всего несколько недель работаю..

[Stilet]

Если последовательность возрастает то следующий элемент больше предидущего:

if a[i]<=a[i-1] then f:=false

А если она убывает то знак обратный.
Понимаешь мою речь?

я с Паскалем всего несколько недель работаю..

Значит тебе стоит взять книжку и потратив неделю почитать ее.

[Letho]

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

ну а в чём проблема то?
Вводите элементы массива.

Потом i:=2 и цикл, пока (i<=N) и (A[i]<>0) and (A[i-1]>A[i])
(последнее условие как раз проверка на убывание.)
в цикле только Inc(i)

дальше.
после выхода из цикла надо проверить,
Если i>N - значит дошли до конца, нулевых элементов вообще нет и все имеющие элементы образуют убывающую последовательность,
иначе (если i<=N) -
тогда проверяйте - A[i] = 0 если да - дошли до нулевого элемента - имеющие элементы образуют убывающую последовательность
иначе - НЕТ ,не образуют...

думаю, что идея понятна. (я дольше словами расписывал, чем программу писать! )

Это слишком просто, а если числа будут вразброс?

[Abstraction]

Letho, пример не приведёте?