Язык: Паскаль.
Тема: Двумерный массив
Условие: В заданной матрице заменить К-юстрокуи L -йстолбец нулями, кроме
элемента, расположенного на их пересечении.
Program help;
var A:array [1..10,1..10] of integer;
k,l,m,n,i,j:integer;
begin
writeln ('radkiv');
readln(n);
writeln('stovpciv');
readln(m);
writeln ('k');
readln(k);
writeln('l');
readln(l);
for i:=1 to n do
for j:=1 to m do
begin
writeln ('vvedite A[',i,',',j,']=');
readln (A[i,j]);
end;
for i:=1 to n do
begin
for j:=1 to m do
write (A[i,j]:6);
writeln
end;
for i:=1 to n do
for j:=1 to m do
begin
if (A[i,j]=A[i,l]) or (A[i,j]=A[k,j]) then if A[i,j]<>A[k,l]
then A[i,j]:=0
end;
writeln;
for i:=1 to n do
begin
for j:=1 to m do
write (A[i,j]:6);
writeln
end;
readln
end.