Program irás PASCALBAN?

Most azt várod, hogy írja ide valaki a kész programot?

Azért a leírás sem egyértelmű.

1. bekéred az 5 életkort egy-egy külön integer változóba (pl. ev1, ev2...)

2. egy min és egy minertek nevű változót deklarálsz

3. minertek:= az első számmal (ev1), a min:=1

aztán egy feltétellel megnézed, hogy az ev2 kisebb -e, mint az minertek, ha igen, akkor minertek:=ev2, a min:=2

4. végigmész az 5-ös számig, amelyik szám kisebb, mint az aktuális minertek, azt beírod a minertek-nek, és a sorszámát kiíratod a min-be

5. megcsinálod ezt a idős-sel is, csak ott lesz egy maxertek meg egy max, előbbibe a legmagasabb kor megy, utóbbiba a kor sorszáma

6. a végén kiíratod, hogy a legfiatalabb a min sorszámú volt, ő minertek éves, míg a legöregebb a max sorszámú volt, ő maxérték éves

7. az életkoruk közötti különség a maxertek-minertek

ez a legegyszerűbb, a leggyorsabb viszont az, hogy egy 1-5-ig tartó cilussal feltöltöd az vészámokat egy tömbbe, majd ezt ugyancsak lekérdezed egy ciklussal, vizsgálva egy segédváltozóval a legidősebb és a lefiatalabb kort - ezt a megoldást azért nem írtam, mert ha ez a kérdés neked nehéz volt, akkor gondolom nem tudod, mi az a tömb, mi az a lekérdezés

jaj istenem nem külön változót kell felvenni hanem egy tömböt ... var a:array [1..5] of integer

writeln ('írja be 5 ember születési évét');

for i:=1 to 5 do readln(a[i]);

min:=0;

for i:=1 to 5 do if a[i]<min then min:=a[i];

writeln (min);

max:=0;

for i:=1 to 5 do if a[i]>max then max:= a[i];

writeln (max);

Writeln ('a legidősebb és legfiatalabb különbsége:',max-min);

ennyi