Anonymní profil Petr Jureček – Programujte.com

Jo, už mi to tam zůstává, takže takhle to má vypadat, ve výsledku to vypadá jednoduše, ale přijít na to je pro mě složité, každopádně děkuji za ochotu, a zítra se vrhnu na úkol č.2 

   máš pravdu, ještě jednu radu, na konci musím napsat ReadLn, aby mi výsledek zůstal a hned nezmizl?

Ten konec jsem napsal takto:

if klesajici { vypiš výsledek zkoumání}

  then writeln ('Posloupnost je klesajici')

  else writeln ('Posloupnost neni klesajici');

protože mě to přes " nechtělo pustit, pak mě to už pustilo, ale chce to po mě číslo, tak ho zadám, chce to po mě další a pořád to chce jenom čísla a výsledek žádný

To máš tak rychle vyřešené??    jak dlouho programuješ? Nic méně vrhnu se na ty tvoje úkoly, at' si z toho něco odnesu :)

Rozhodlo to, jak mělo, nebo špatně? Co by to podle tebe mělo vyhodit? Vyhodnotilo to dobře, nebo ne?

No, nevím jestli tam má být pole, dostali jsme zadání, nic víc nám k tomu řečeno nebylo

tu druhé:

956

848

799

699

1

0

pole je sestupně

Omluva, to první co jsi tu napsal mi to přečetlo, chybělo mi tam ;

výsledek toto:

15

48

není sestupně, ta druhá varianta nefunguje

Píše mi to chybu hned u toho beginu 

Ok, na ten program mrknu, chci se zeptat, nějak takhle jsem udělal to moje zadání, mohlo by to tak vypadat?

program Project4;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  c,posledni:Integer;
  temp:String;
  poleCisel:array[1..6] of Integer = (5,4,99,2,1,0);
begin
c := 1;
posledni := poleCisel[c]+1;
while(poleCisel[c]<posledni) do
begin
  writeln(poleCisel[c]);
  posledni := poleCisel[c];
  c := c + 1;
  if(c>6) then
  begin
  writeln('Pole je sestupne')
  end
  else
  begin
  if(poleCisel[c]>posledni) then
  begin
  write(poleCisel[c]);
  writeln(' neni sestupne');
  end
  end
end;
readln(temp);