Найти все элементы матрицы, которые отличаются от заданного f, заменить нулями- Pascal(Паскаль)

program bing;
uses CRT;
type
    matrix = array [1..100, 1..100] of integer;
var
   A: matrix;
   m, n, i, j, f: integer;
   procedure vvod(var MM : matrix);
   begin
        for i:= 1 to m do
            for j:= 1 to n do
            begin
                 write('A', i, ', ', j, ']- ');
                 readln(MM[i, j]);
            end;
   end;
   procedure obrabotka(var MM : matrix);
   begin
        for i:= 1 to m do
            for j:= 1 to n do
                if MM[i, j] <> f then
                   MM[i, j]:= 0;
   end;
   procedure outM(MM : matrix);
   begin
        for i:= 1 to m do
        begin
             for j:= 1 to n do
                 write(MM[i, j]:5);
             writeln;
        end;
   end;
begin
    clrscr;
    write('m- ');
    readln(m);
    write('n- ');
    readln(n);
    write('f- ');
    readln(f);
    obrabotka(A);
    outM(A);
    readkey;
end.

Leave a Comment

+ 44 = 54