обнулить строку и столбец матрицы в которой имеется "0"
можно использовать вспомогательный одномерный массив.
ввожу матрицу,а дальше что делать?
помогите,плизззззз!
uses crt;
const
Nmax=10;{Максимальное значение строк и столбцов матрицы}
type
mas=array[1..Nmax,1..Nmax] of integer;
var
A:mas;
N,M:byte;{Кол-во строк и столбцов}
procedure vvod_mas(var a:mas;var n,m:byte);
{Ввод матрицы с запоминанием позиции,для последующего
обнуления строки и столбца}
var i,j:integer;
begin
repeat
Write('Zadaite 4islo strok v matrice (1..',nmax,'): ');
ReadLn(N);
If (N<=0) and (N>Nmax) then
WriteLn('error! povtorite!');
until (N>0) and (N<=Nmax);
repeat
Write('Zadaite 4islo stolbcov (1..',nmax,'): ');
ReadLn(M);
If (M<=0) and (M>Nmax) then
WriteLn('Error! Povtorite!');
until (M>0) and (M<=Nmax);
WriteLn('Zadaite elementi matrici po strokam 4erez probel ');
For i:=1 to N do
begin
Write('Stroka ',i,': ');
for j:=1 to M do
begin
Read(A[i,j]);
end;
end;
end;
procedure vivod(var a:mas;var n,m:byte);
var i,j:integer;
begin
WriteLn('Rezultat: ');
for i:=1 to N do
begin
for J:=1 to M do
Write(a[i,j]:4);
WriteLn;
end; end;
BEGIN{main}
clrscr;
vvod_mas(a,n,m);
vivod(a,n,m);
writeln;
readkey;
end.