Hogyan kell megírni Pascalban, algoritmusosan ezt a programot: mely beolvas egy tetszőleges számsorozatot, majd kiírja a beolvasott legkisebb és legnagyobb számot?

Minimum és maximum keresések algoritmusa.

A számokat tömbbe teszed.

Majd felveszel két változót, az egyik értéke olyan nagy legyen, ami biztos nagyobb, mint a tömbben levő számok értéke. Pl.: 9999999999

A másik változó értéke pedig kicsi legyen. pl: -9999999999

Egy ciklust indítasz a tömbben és megvizsgálod, hogy a ciklusváltozó által mutatott tömbbeli érték nagyobb e mint -999999999 és ha nagyobb akkor kicseréljük a -999999999 -et a tömbbeli értékre. Ugyanezt megcsináljuk a legnagyobb számra is, de ott azt vizsgáljuk, hogy kisebb e. És ha kisebb akkor cserélünk.

algoritmus:

tomb[10]={1,2,3,4,5,6,7,8,9,10}

legkisebb=99999999999

legnagyob=-9999999999

ciklus i=1től 10-ig

ha tomb[i]>legnagyobb akkor legnagyobb=tomb[i]

ha tomb[i]<legkisebb akkor legkisebb=tomb[i]

ciklus vége

kiir A legkisebb szám: legkisebb

kiir A legnagyobb szám: legnagyobb

Próbáld így:

program valami;

uses crt;

const n=20; {a tömb elemeinek a száma}

var a: array[1..n] of integer;

i,min,max: integer;

begin

randomize;

for i:=1 to n do a[i]:=random(150)+1;

for i:=1 to n do write(a[i],', ');

writeln;

{a tömb legkisebb és legnagyobb elemének keresése...}

min:=a[1];

max:=a[1];

for i:=2 to n do begin

if a[i]<min then min:=a[i];

if a[i]>max then max:=a[i];

end;

writeln('Legkisebb: ',min);

writeln('Legnagyobb: ',max);

end.

Input: 546372819

Output: Legkisebb beírt szám: 1

Legnagyobb beírt szám: 9

Így gondoltad?