Программа: Вставка столбца из нулей в двумерный массив

Задача: Заполнить двумерный массив. Вставить столбец из нулей вместо случайно выбранного столбца.

PROGRAM nuli;
	var i,k,s :integer;
		M	  :array[1..3,1..3] of integer;
BEGIN
	Randomize;
	s:=random(4);
	for i:=1 to 3 do
	  begin
		for k:=1 to 3 do
		  begin
			M[i,k]:=random(10);
			Write(M[i,k],' ');
		  end;
		Writeln
	  end; // Забитие и вывод массива
 
	WriteLn(s,' - Случайное число ');
	for i:=1 to 3 do
	  begin
		for k:=1 to 3 do
		  begin
			if k=s 
            then M[i,k]:=0;
			Write(M[i,k],' ');
	  	  end;
		Writeln
	  end; // Проверка если больше...

END.

Просмотрело: 2332

Возможно, Вы искали: