var tarolo: integer;
szam :array[1..3] of integer;
begin
randomize;
{veletlanszem generalas}
szam[1] := random (100);
szam[2] := random (100);
szam[3] := random (100);
writeln ('A generalt szamok: ',szam[1],',',szam[2],',',szam[3]);
{min max kereses sorbarendezessel}
if szam[1] > szam[2] then begin tarolo:=szam[1]; szam[1]:=szam[2]; szam[2]:=tarolo; end;
if szam[1] > szam[3] then begin tarolo:=szam[1]; szam[1]:=szam[3]; szam[3]:=tarolo; end;
if szam[2] > szam[3] then begin tarolo:=szam[2]; szam[2]:=szam[3]; szam[3]:=tarolo; end;
writeln ('Legnagyobb szam: ',szam[3]);
writeln ('Legkisebb szam: ',szam[1]);
{harommal oszthato}
write('Harommal oszthato:');
for tarolo:=1 to 3 do
if (szam[tarolo] mod 3)=0 then write(szam[tarolo],',');
readln;
end.
Két okból írtam be egy lehetséges megoldás (a kód inkább egyszerű mint szép megoldás a könnyebb érthetőség végett):
1. Már vagy 6-7 éve nem láttam Pascalt egy kis nosztalgia :)
2. Én sokkal jobban szeretek egy megoldáson keresztül megérteni dolgokat pl ha megvan a megoldás átnézem majd egyedül is próbálom megirni magamtól és ha megy akkor értem. :D A ti módszeretek szerintem csak akkor célravezető ha ott ülsz mellette és próbálod rávezetni a megoldásra de nem így fórumon keresztül hogy 5 -en 8 félét magyaráztok :) de ha tévredek én kérek elnézést.