Segitenétek megirni ezt a két a programot? Megköszönném.

Segítek: az elsőt hátultesztelős ciklussal szeretnék ha megoldanád, és be kell olvasni a számokat. Minden beolvasásnál ellenőrizd, hogy 0-e, ha igen, kiléphetsz. Nem kell szerintem ellenőrizni, hogy biztos egészeket kapsz-e, a feladatból úgy tűnik ez nem elvárás.

A másodiknál véletlenszámot kell generálni, aztán ismételni amit az első feladatban: beolvasni számokat, amíg 0 nem lesz, csak itt nem 0, hanem a generált szám, és persze minden szám után ki is kell írni valamit :)

Fejből írom őket és ezer éve nem pascaloztam, úgyhogy azért majd nézd át...

1. feladat:

var I,J,Be,Max,Min : Integer;

Tomb: Array[1.9999] of Integer;

// 9999 elem csak elég lesz...

...

begin

I:=0;

repeat

ReadLn(Be);

if Be <> 0 then

begin

Tomb[I]:=Be;

Inc(I)

end;

until Be = 0;

// Itt nézzük meg a min és maxkiválasztást

Min:=0;

Max:=0;

for J:=0 to I do // minek dolgozzunk fel 9999 elemet, ha csak I-ig jutottunk?

begin

If Min > Tomb[J] then Min:=Tomb[J];

If Max < Tomb[J] then Max:=Tomb[J];

end;

end.

2. feladat:

var Szam, UserSzam : Integer;

...

begin

Randomize;

Szam:=Random(49)+1; // hogy a 0 ne kerüljön bele...

repeat

ReadLn(UserSzam); // beolvasás

if UserSzam < Szam then WriteLn('Alálőttél...')

else if UserSzam > Szam then WriteLn('Fölélőttél')

else if UserSzam = Szam then WriteLn('Nyertél.');

until Szam = UserSzam;

end.

az elsőt elb*sztad.... minek oad tömb? :D

program elso;

var min, max, be : integer;

BEGIN

read(be);

max := be;

min := be;

repeat

read(be);

if be>max then be :=max;

if be<min then be :=min;

until be <> 0;

writeln('max: ',max);

writeln('min: ',min);

END.