reikia programos

Parašyti programą kuri rastų:

a) mažiausiąjį sekos narį ir jo eilės numerį sekoje

b) didžiausią ir mažiausią sekos narius

c) didžiausiaji ir maziausiaji sekos narius bei ju eiles numerius sekoje

Ačiū.

VB, pascal... ar kokia kita prgramavimo kalba? Ar visom? :D

pascalis

Na gal kas pagelbės? labai reikia :D

Niekas namų darbus už tave neatlikinės ;)

Na tai ir prašau pagalbos išmanančių, o žmonių kurie nori pasirinkti post'ų prašau nerašyti mano temoje.

Nu tai prasuki ciklą per visą masyvą ir rasi mažiausią reikšmę. Kai randi mažiausią reikšmę, išsisaugai jos sekos numerį. Elementaru. Analogiška su likusiais dvejais. Kodą pasirašysi pats, nereik norėt kad kažkas viską atliktų už tave :)

Skaičių seka nuskaitoma iš failo ar įvedama tol,kol įvestas skaičius bus koks 0 ar Įvedi skaičių,kuris ir rodo kiek bus įvedamų skaičių?

Supraskit, aš nemoku programuot, o to darbo man riekia trečiadieniui :)

Tai galėtum bent atsakyt į mano užduotą klausimą..

Dėl to niekas nieko nesakė :D tai manau nėra skirtumo, manau įvedant

program Sekos_veiksmai;
Type TMas=array[1..100] of integer;
 var i,n:integer;
     Seka:Tmas;

Procedure Min_kur;
 var i,min,vieta:longint;
Begin
 min:=MaxLongint;
 For i:=1 to n do
 Begin
   if Seka[i]<Min then
   Begin
     Min:=Seka[i];
     Vieta:=i;
   end;
 end;
 Writeln('Sekos maziausias narys : ',min,' kurio eiles numeris yra :',vieta);
end;

Procedure Min_Max;
 var Min,Max,i:longint;
Begin
 Min:=MaxLOngint; Max:=0;
 For i:=1 to n do
 Begin
   if Seka[i]>max then max:=seka[i];
   if Seka[i]<min then min:=seka[i];
 end;
 Writeln('Didziausias sekos narys - ',max);
 Writeln('Maziausias sekos narys - ',min);
end;

Procedure Min_Max_Kur;
 var Min,Max,i,MinVieta,MaxVieta:longint;
Begin
 Min:=MaxLongint; Max:=0;
 For i:=1 to n do
 Begin
   if Seka[i]>max then
   Begin
     max:=seka[i];
     MaxVieta:=i;
   end;
   If Seka[i]<min then
   Begin
     Min:=seka[i];
     MinVieta:=i;
   end;
 end;
 Writeln('Maziausias sekos narys yra : ',min,' kurio eiles numeris : ',MinVieta);
 Writeln('Didziausias sekos narys yra :',max,' kurios eiles numeris yra ',MaxVieta);
end;
begin
 Writeln('Kokio ilgio sekos noresit?'); readln(n);
 For i:=1 to n do
 readln(Seka[i]);
 Min_kur;  // Pirma
 Min_Max;  //Antra
 min_max_kur; //Trecia
 readln; Readln;
end.

Tai kad meta mažiausia ir didžiausia tokias pat :D

Man viskas kaip ir gerai...O didziausia ir maziausia gali mest tuo atveju,jeigu bus seka is tokio pacio skaiciaus (1,1,1 ir t.t).

http://img155.imageshack.us/i/capturefvn.jpg/

Ai viskas gerai, ačiū labai