Hi, also ganz eindeutig ist es nicht, was du da machen willst
sonst würde wohl auch der compiler es greifen... aber ich versuch mal:
Delphi-Quellcode:
var i,minWert, maxWert:Integer;
begin
minWert:=1;
maxWert:=49;
for i:=1 to Length(Tipp) do
begin
if Tipp[i-1]<minWert then minWert:=Tipp[i-1];
if Tipp[i-1]>maxWert then maxWert:=Tipp[i-1];
end;
if (minWert<1) or (maxWert>49) then showmessage('Ungüueltige Eingabe...');
end;
ok?