Összetett gyakorlati feladat specifikációja

Feladat:
Készítsünk programot, amely a felhasználó által megadott tetszőleges számú egész értékekből álló adathalmazzal az alábbi műveleteket végzi:
1. elemek összegzése
2. elemek átlagolása
3. legkisebb elem kiválasztása (minimum kiválasztás)
4. legnagyobb elem kiválasztása (maximum kiválasztás)
5. elemek sorba rendezése

Specifikáció: Egy tömb feltöltése adatokkal, a tömb elemeinek összegzése, átlagolása, minimum kiválasztás, maximum kiválasztás, tömb elemeinek sorba rendezése.

Bemenő adatok:
Tetszőleges számú egész érték.

Kimenő adat.
1. a bevitt értékek összege
2. a bevitt értékek átlaga
3. a bevitt legkisebb érték
4. a bevitt legnagyobb érték
5. a sorba rendezett értékek

Műveletek megvalósítása:
Elemek beolvasása:
Az elemek beolvasását a dinamikus tömbbe Inputbox segítségével végezzük egy hátultesztelő ciklusban. A ciklusból való kilépés feltétele, hogy a felhasználó nem ad meg adatot. A beolvasott elemek darabszámát a mennyiseg nevű változóban fogjuk tárolni.
Elemek összegzése:
Az elemek összegzéséhez egy függvényt fogunk készíteni, amelynek a neve osszeg. A függvényen belül az összegzés műveletét számláló ciklussal végezzük.
Elemek átlaga:
Az elemek átlagának kiszámításánál felhasználjuk az osszeg függvény eredményét, amelyet elosztunk a mennyiseg nevű változóval.
A legkisebb értékű elem kiválasztása: (minimum kiválasztás)
A legkisebb értékű elemet számláló ciklus segítségével választjuk ki.
A legnagyobb értékű elem kiválasztása: (maximum kiválasztás)
A legnagyobb értékű elemet számláló ciklus segítségével választjuk ki.
Az tömb elemeinek sorba rendezése:
Az elemek sorba rendezéséhez a Rendezés minimum kiválasztással programozási tételt használtuk fel.

Tömb beolvasás algoritmusa Adott egy Adatok tömb, melybe a felhasználó által megadott elemeket olvasunk be. Eljárás_Beolvasás Mennyiseg:=0 Cilkus Be: Adat Ha Adat nem üres, akkor Mennyiseg:= Mennyiseg +1, Adatok(Mennyiseg):=Adat Amíg Adat nem üres Ki: Mennyiseg Eljárás vége

Tömb beolvasás

Adott egy Adatok tömb, amelybe a felhasználó által megadott elemeket beolvassuk.
Eljárás_Beolvasás
Mennyiség:=0
Ciklus
Be: Adat
Ha Adat nem üres, akkor Mennyiség:=Mennyiség+1, Adatok(Mennyiség):=Adat
Amíg Adat nem üres
Ki: Mennyiség
Eljárás vége