Skocz do zawartości
Zaloguj się, aby obserwować  
ilov3

Free Pascal

Polecane posty

mam taki kod programu, jest on niedokończony.

program tablica;

var

Liczby : array [1..20] of Byte;

N,i : Byte;

IleZnalezionych : Byte;

begin

randomize;

for i:=1 to 20 do

Liczby[1]:= Random(20)+1;

write('Podaj liczbe od 1 do 20: '); readln(N);

while((N<1)or(N>20)) do

begin

write('Zła wartość. Podaj liczbe z zakresu 1 do 20: '); readln(N);

end;

IleZnalezionych :=0;

writeln; write('Tablica: ');

for i:=1 to 20 do

begin

if Liczby=N then

IleZnalezionych:=IleZnalezionych+1;

end;

write(IleZnalezionych);

readln;

end.

w programie z tego co wiem muszę dodać jeszcze raz

if

bo nie wyrzuca mi żadnych liczb.

pomoże ktoś?

do zamkniecia

Edytowano przez ilov3

Udostępnij ten post


Link to postu
Udostępnij na innych stronach

Bądź aktywny! Zaloguj się lub utwórz konto

Tylko zarejestrowani użytkownicy mogą komentować zawartość tej strony

Utwórz konto

Zarejestruj nowe konto, to proste!

Zarejestruj nowe konto

Zaloguj się

Posiadasz własne konto? Użyj go!

Zaloguj się
Zaloguj się, aby obserwować  

  • Kto przegląda   0 użytkowników

    Brak zalogowanych użytkowników przeglądających tę stronę.

×