gokralik píše:Zdař bůh. Mám vytvořit v Delphi algoritmus "Program načte neprázdnou posloupnost celých nenulových čísel ukončenou číslem nula a zjistí, zda je tato posloupnost klesající (další číslo vždy menší než předchozí)." pomocí cyklů a vůbec nevím jak na to. Pomohl by někdo?
gokralik píše:Spíš nevím, jak tam napsat aby se cyklus přestal opakovat, když dojde k té nule na konci. Já vlastně nevím vůbec nic
zatím díky...zkusím se s tím poprat. Kdyžtak se zase zeptám.
Ježiš sorry, já já dneska nějak nevim co plácám.Kód: Vybrat vše
program Project2;
{$APPTYPE CONSOLE}
uses
SysUtils;
var
i,n,min,min1:integer;
a:array [1..100] of integer;
procedure prd;
begin
n:=3;
a[1]:=3;
a[2]:=1;
a[3]:=2;
min:=maxint;
for i:=1 to n do
if a[i]<min then min:=a[i];
for i:=1 to n do
if a[i]=min then begin write(a[i]); writeln(' ', i); min1:=maxint; min:=a[i]; end;
for i:=1 to n do
if a[i]>min then begin if a[i]<min1 then min1:=a[i];
end;
for i:=1 to n do
if a[i]=min1 then begin write(a[i]); writeln(' ', i); min1:=maxint; min:=a[i]; end;
for i:=1 to n do
if a[i]>min then begin if a[i]<min1 then min1:=a[i];
end;
for i:=1 to n do
if a[i]=min1 then begin write(a[i]); writeln(' ', i); min1:=maxint; min:=a[i]; end;
end;
begin
prd;
readln
end.