zadanie hodnot z klavesnice do pola

Glaedelig · Napísal **Glaedelig**: 03.09.2011 11:58

Zdravim, vedel by mi niekto napisat ako zadam ciselne hodnoty z klavesnice do pola a ukoncujem napriklad cislom 0 ak neviem vopred pocet. Dik za odpoved, prehladal som uz toho dost ale nepodarilo sa mi najst (robim v dev pascale );

nBXXL · Napísal **nBXXL**: 03.09.2011 12:37

čo takto niečo na štýl:
- prečítať hodnotu
- ak nie je nula -> vložiť do poľa, opakovať
- ak je nula -> skončiť

Glaedelig · Napísal autor témy **Glaedelig**: 03.09.2011 15:34

hej hej presne, aby sa z toho dalo napriklad urcit maximum al. minimum

juho · Napísal **juho**: 04.09.2011 10:26

Kód:

var a:array[1..100] of integer;i:byte;
begin
i:=0;
repeat
inc(i);
write('zadaj ',i,'. cislo: ');
readln(a[i]);
until a[i]=0;
end.

ked pre urcenie maxima alebo minima tak

Kód:

var max,min,cislo:byte;
begin
max:=0;
min:=255;
repeat
readln(cislo);
if(cislo=0)then break;
if(min>cislo)then min:=cislo;
if(max<cislo)then max:=cislo;
until cislo=0;
end.

Glaedelig · Napísal autor témy **Glaedelig**: 04.09.2011 12:11

jasne, dik

zadanie hodnot z klavesnice do pola

Podobné témy