Hogy lehetne pascalban?

De ez így tényleg jó? Bekérsz 50 számot, a felhasználó elír egyet és te újra bekéretsz vele 50-et?

Nem lenne így jobb:

b := 10..50:

do:

a := konzolról olvasott szám

while (a < 1 or a > 90)

tomb[b] = a

Magyarán ha beírt már 5 számot és a 6-at nem tudja megfelelően beírni, akkor a hatodikat kérjük tőle újra!

A trehányságért és a "pszeudó" kódért bocsi, nem mostanában tanultam a pascalt és a pszeudó kód írást :D

Var x: array[1..50] of integer;

i: integer;

[...]

for i:=1 to 50 do

begin

repeat

clrscr;

write('Kerem a számot: ');

readln(x[i]);

until x[i] in (1..90);

End;

Valami ilyesmivel próbálkozz. A kódot nem teszteltem, lehet van benne hiba.

Na mégegyszer.

Var x: array[10..50] of integer;

i: integer;

[...]

for i:=10 to 50 do

begin

repeat

clrscr;

write('Kerem a számot: ');

readln(x[i]);

until x[i] in [1..90];

End;