Witam, mam do napisania program, ktory w pierwszej kolejnosci losuje 10 roznych,mogacych sie powtarzac liczb, nastepnie gdy uzytkownik wpisze jedna musi wyskoczyc na ktorym miejscu ta liczba sie znajduje.
Program po czesci jest napisany, ale brakuje mi tej ostatniej informacji. np, gdy uzytkownik wpisze 5, a zostaly wylosowane liczby w kolejniosci 2,5,3,4,1,0,5,2,1,9 to program wypisze: w wylosowanych liczbach 5 znajduje sie na miejscu : 2 7

program abc;
uses crt;
var liczby:array[1..10] of byte;
i,x:byte;
begin
clrscr;
randomize;
for i:=1 to 10 liczby[i]:=random(10);
writeln('Wylosowano liczby:');
for i:=1 to 10 do writeln(liczby[i]);
writeln;writeln;
writw('Jaka liczbe sprawdzic? ' );
readln(x);
writeln;

writeln('W wylosowanych liczbach ',x,' znajduje sie na miejscu:');
repeat until keypressed;
end.

Sprobuj na https://dojrzewamy.pl. Pisza ponad 2000 odpowiedzi dziennie!

Na początku musisz wyzerować zmienną, zliczającą liczbę wystąpień zadanej wartości w tablicy liczby. Następnie wyświetlasz tekst W wylosowanych liczbach x .
W pętli for porównujesz zadaną liczbę z wartościami kolejnych składowych tejże tablicy. Gdy są one równe, to
*** jeśli licznik wystąpień jest zerem, wyświetlasz dalszą część napisu, tj. znajduje się na miejscu
*** wyświetlasz indeks tej składowej
*** ORAZ zwiększasz licznik wystąpień.

Jeśli po zakończeniu pętli licznik wystąpień nadal jest zerem, wyświetlasz napis: nie występuje.