7. система, позволяющая решать проблемы информационно-правового обеспечения организаций и предприятий, относится к классу систем а) экспертных; б) информационно-решающих; в) информационно-правовых

//pascal const   n = 5;   m = 5; var   i, j, k: integer;   a: array [1 .. n, 1 .. m] of integer; begin   for i : = 1 to 5 do   begin       for j : = 1 to 5 do       begin           if j mod 2 = 0 then a[i, j] : = 0           else a[i, j] : = 1;           write(a[i, j]: 3);       end;       writeln;   end;       readln; end.

Const   n = 4;   m = 5; var   i, j, k: integer;   a: array [1 .. n, 1 .. m] of integer; begin   i : = 1;   for j : = 1 to 5 do a[i, j] : = j;   k : = 0;   for i : = 3 to n + 1 do   begin       for j : = 1 to m do       begin           k : = (i - 1) * m + j;           a[i - 1, j] : = k;       end;   end;   for i : = 1 to n do   begin       for j : = 1 to m do           write(a[i, j]: 4);       writeln;   end;   readln; end.