Программы на последовательности.

[Moncorel]

Pascal ABC.net
Ребят помогите мне написать 2 программы
1)Дана последовательность положительных целых чисел, за которой следует 0. Найти количество чисел, расположенных после последнего нечетного числа.
2)Дана последовательность положительных целых чисел, за которой следует 0. Найти минимальный элемент после первого отрицательного числа.
Буду очень благодарен.

[Serge_Bliznykov]

"помогите написать", это следует расценивать как: "напишите за меня"?
и язык программирования какой?!

Да и в чём, собственно, сложность решения?

я бы предложил такой алгоритм:

КоличествоЧиселПослеПоследнегоНечётного := 0;
повторять
  Прочитать(СчитанноеЧисло);
  если СчитанноеЧисло не равно 0 тогда
     если СчитанноеЧисло - нечётное - КоличествоЧиселПослеПоследнегоНечётного := 0
     иначе КоличествоЧиселПослеПоследнегоНечётного := КоличествоЧиселПослеПоследнегоНечётного + 1;
повторять_цикл_до_тех_пор_пока_не_станет СчитанноеЧисло = 0;

вот и всё.

[Moncorel]

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

"помогите написать", это следует расценивать как: "напишите за меня"?
и язык программирования какой?!

Да и в чём, собственно, сложность решения?

я бы предложил такой алгоритм:

КоличествоЧиселПослеПоследнегоНечётного := 0;
повторять
  Прочитать(СчитанноеЧисло);
  если СчитанноеЧисло не равно 0 тогда
     если СчитанноеЧисло - нечётное - КоличествоЧиселПослеПоследнегоНечётного := 0
     иначе КоличествоЧиселПослеПоследнегоНечётного := КоличествоЧиселПослеПоследнегоНечётного + 1;
повторять_цикл_до_тех_пор_пока_не_станет СчитанноеЧисло = 0;

вот и всё.

на языке pascal. А за меня написать потому что дуб дубом и прошу помощи. Я все перепробовал.

[Moncorel]

Как можно изменить эту программу

program test;
var xpred,x,cnt : integer;
    flag : boolean;  
begin
write(‘Input x: ‘); readln(x); 
flag:= true;       
cnt:=0;              
while true do
    begin
    xpred:=x;            
    write(‘Input x: ‘);
    readln(x);         
    if x=0 then break; 
    cnt:=cnt+1;     
    if (xpred >=x)    
    then flag:=false;    
    end;
writeln('Количество элементов = ', cnt);
If flag
then writeln('Последовательность строго возрастает')
else writeln('Последовательность не возрастает');
readln
end.

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.