Question

W programie pascal.za wykonanie z góry dzięki.2 programy. Część I Z przedziału <0,100) będzie losowanych 10000 liczb. Należy policzyć minimalną i maksymalną ilość wystąpień tej samej liczby.

Przykład:

Wylosowano liczby: 0, 5, 6, 5, 5, 7, 5, 0, 3, 2 to minimalna ilość wystąpień wynosi 1, maksymalna wynosi 4

Część II

** Należy wypisać liczby występujące minimalną i maksymalną ilość razy.

Przykład: Jeśli wylosowano liczby tak, jak powyżej to ma się pojawić komunikat:

Liczby 5 wylosowano 4 razy. Liczby 6, 7, 3, 2 wylosowano1 raz.

Wskazówka:

Zadeklaruj tablicę, którą wykorzystasz do zbierania wyników losowania. Losuj indeks tablicy i zwiększaj o 1 element tablicy, który wpisany jest na wylosowanym miejscu.

Answer 1

rozwiazanie w zalaczniku w raze niejasnosci pisz:

program zadanepl;
var
i,max,min:integer;
liczby:array[1..10000] of Integer;
tab:array[0..99] of Integer;
begin
randomize;
for i:=1 to 10000 do
begin
liczby[i]:=random(100);
write(liczby[i],', ');
tab[liczby[i]]:=tab[liczby[i]]+1;
if i mod 10 = 0 then writeln;
end;
max:=0;
min:=100;
for i:=0 to 99 do
begin
if max < tab[i] then max:=tab[i];
if min > tab[i] then min:=tab[i];
end;
writeln;
writeln('Maksymalna wartosc wystapien to ',max);
writeln('Minimalna wartosc wystapien to ',min);
write('Liczby: ');
for i:=0 to 99 do
begin
if max=tab[i] then write(i,',');
end;
writeln(' wylosowano ',max,' razy.');
write('Liczby: ');
for i:=0 to 99 do
begin
if min=tab[i] then write(i,',');
end;
writeln(' wylosowano ',min,' razy.');
readln;
end.

skoro zalacznik nie dziala