Задачка с матрицей., немного помощи Опции

[Rom1k]

Дан двумерный массив А.Заменить нулями элементы массива.СТОЯЩИЕ В СТРОКАХ ИЛИ СТОЛБЦАХ,ГДЕ ИМЕЮТСЯ НУЛИ.

Вот.Создал,заполнил,а дальше что делать? Создавать новый массив? И как Мне выполнить условие задачи?!

Program z_2;
const
  Nmax=10;{Максимальное значение строк и столбцов матрицы}
type
  mas=array[1..Nmax,1..Nmax] of integer;
{Процедура ввода массива}
Procedure vvod(var A:mas;var N,M:integer);
{A-матрица, N,M-Строка и столбец в матрице}
var
 i,j:integer;{Номер строки и столбца в матрице}
begin
 repeat
  Write('Задайте число строк в матрице (1..',nmax,'): ');
  ReadLn(N);
  If (N<=0) and (N>Nmax) then
   WriteLn('Ошибка! Повторите!');
 until (N>0) and (N<=Nmax);
 repeat
  Write('Задайте число столбцов в матрице (1..',nmax,'): ');
  ReadLn(M);
  If (M<=0) and (M>Nmax) then
   WriteLn('Ошибка! Повторите!');
 until (M>0) and (M<=Nmax);
 WriteLn('Задайте элементы матрицы строкам через пробел ');
 For i:=1 to N do
  begin
  Write('Строка: ');
  for j:=1 to M do
   Read(A[i,j]);
  ReadLn;
  end;
end;
procedure vivod(A:mas;N,M:byte);
{A-матрица,N,M-строка и столбец}
var
  i,j:integer;{Номер очередного элемента в массиве}
begin
  WriteLn('Результат: ');
   for i:=1 to N do
    begin
     for J:=1 to M do
      Write(a[i,j]:4);
     WriteLn;
    end;
end;
Var
 NA:mas;{Исходный массив}
 NN,NM:integer;{Кол-во cтрок и столбцов в матрице}
 NI,NJ:integer;{Элементы строки и столбца в матрице}
begin{main}
 WriteLn('Ввод матрицы: ');
 Vvod(NA,NN,NM);
 WriteLn('Матрица ');
 Vivod(NA,NN,NM);
end.

Сообщение отредактировано: Rom1k - 29.04.2007 17:06

[Tan]

Если я правильно понял условие, то вот мой вариант (пардон что без процедур) :

uses crt;
Const N = 4;
      M = 4;
var ms,copyms : array [1..N,1..M] of integer;
          i,j,k : Integer;
begin
ClrScr;
randomize;
 for i := 1 To N do
    Begin
    writeln;
      For j := 1 to M do
         begin
            ms[i,j] := random(7) - 1;
            copyms[i,j] := ms[i,j];
            write (ms[i,j]:3);
         end;
     end;
for i:= 1 to N do
   for j:= 1 to M do
        If ms[i,j] = 0 then for k := 1 to M do ms[i,k] :=0;
for i := 1 to N do
    for j := 1 to M do if copyms [i,j] = 0 then for k:= 1 to N do ms[k,j] := 0;
writeln;
writeln;
for i:= 1 to N do
 begin
  for j:= 1 to M do write (ms[i,j]:3);
   writeln;
 end;
readkey;
end.

P.S. Klem4, скорей всего матрица будет ещё меньше, чем вы предположили, так как автор в своём исходнике просит ввести элементы, иначе преподу который будет проверять "нефортануло"

Сообщение отредактировано: Tan - 29.04.2007 17:54