Массив с определенным количеством цифр

[rainbow]

Есть программа, которая создает массив любого размера до 20 на 20 элементов и забивает его значениями от 0 до 9.

uses crt;
const nmax=20;
var a:array[1..nmax+1,1..nmax] of integer;
    n,m,i,j:byte;
    x:integer;
begin
clrscr;
randomize;
repeat
write('Количество строк=');
readln(m);
until m in [1..nmax];
repeat
write('Количество столбцов=');
readln(n);
until n in [1..nmax];
for i:=1 to m do
for j:=1 to n do
a[i,j]:=random(10);
writeln('Исходная матрица:');
for i:=1 to m do
 begin
  write(' ':9);
  for j:=1 to n do
  write(a[i,j]:4);
  writeln;
end;
readln;
end.

Как сделать так, чтобы она создавала точно такой же массив, но с определенным содержанием количества цифр, например нулей?
Количество нулей в формируемом массиве должно задаваться вручную с клавиатуры.

[rainbow]

Всё, тему можно закрывать, придумал сам

uses crt;
const nmax=20;
var a:array[1..nmax+1,1..nmax] of integer;
    n,m,i,j,k:byte;
    x:integer;
begin
clrscr;
randomize;
repeat
write('Количество строк=');
readln(m);
until m in [1..nmax];
repeat
write('Количество столбцов=');
readln(n);
until n in [1..nmax];
write('Количество нулей=');
readln(k);
for i:=1 to m do
for j:=1 to n do
a[i,j]:=random(9)+1;
repeat
i:=random(m)+1;
j:=random(n)+1;
a[i,j]:=0;
dec(k);
until k=0;
writeln('Исходная матрица:');
for i:=1 to m do
 begin
  write(' ':9);
  for j:=1 to n do
  write(a[i,j]:4);
  writeln;
end;
readln;
end.

[Serge_Bliznykov]

в целом правильно. можно и так решить задачу. Но в вашем алгоритме есть "косячок-с".
Не проверяется, что в записываемой ячейке уже не стоит ноль.
попробуйте взять матрицу 5 на 5, например и задать количество нулей (K) равным, например, 20.
А потом проверьте, сколько реально нулей получится после вашего кода...

p.s. исправить это можно так:

if a[i,j]<>0 then begin
  a[i,j]:=0;
  dec(k);
end;

ТОЛЬКО ОБЯЗАТЕЛЬНО ДОБАВЬТЕ ПРОВЕРКУ, K должно быть меньше-равно произведения N*M

кстати, я бы поступил не так.
1) заполнил массив K нулями (прямо подряд)
2) заполнил оставшиеся элементы массива значениями RANDOM(xxx)+1;
3) перемешал содержимое массива...
так может и не проще, но чуть-чуть эффективнее...

[rainbow]

Сообщение от Serge_Bliznykov

Не проверяется, что в записываемой ячейке уже не стоит ноль.

А в записываемой ячейки нуля быть и не может, так как массив формируется командой

a[i,j]:=random(9)+1

То есть случайное значение от 0 до 8 и плюс 1, получается от 1 до 9.

[Serge_Bliznykov]

в записываемой ячейки нуля быть и не может, так как массив формируется командой

глупости говорить изволите!

a[i,j]:=0;

нули появляются в процедуре, которая пишет нули по случайным координатам.
С очень высокой долей вероятности вы попадёте в ячейку, куда раньше (в этом же цикле уже записали ноль!

Ну неужели запустить ВАШУ же программу, задать 5 строк, 5 столбцов, 20 нулей.
и посчитать, сколько циферок НЕ Равно нулю (а потом от 25 отнять это число, получится РЕАЛЬНОЕ число нулей) - это так сложно?!!