Обработка последовательностей целых чисел
Помогите пожалуйста! Нужно обеспечить вывод в компонент TMemo случайной последовательности из n целых чисел в диапазоне от 0 до m и подсчитать, сколько раз в ней встречалось число k.
Код:
nk:=0;
for i:=0 to n-1 do
begin
x:=random(m+1);
if x=k then
nk++;
YourMemo.Lines.Add(IntToStr(x));
end;
ShowMessage(IntToStr(nk)+' раз');
for i:=0 to n-1 do
begin
x:=random(m+1);
if x=k then
nk++;
YourMemo.Lines.Add(IntToStr(x));
end;
ShowMessage(IntToStr(nk)+' раз');
Спасибо!