uses crt;
const
n = 4;
var
mas: array [1 .. n, 1 .. n] of integer;
i, j, k: byte;
begin
randomize;
clrscr;
writeln('исходный массив: ');
for i := 1 to n do
begin
for j := 1 to n do
begin
mas[i, j] := random(19) - 9;
write(mas[i, j]:4);
end;
writeln;
end;
writeln;
for i := 1 to n do
mas[i, i] := abs(mas[i, i]);
writeln('преобразованный массив: ');
for i := 1 to n do
begin
for j := 1 to n do
write(mas[i, j]:4);
writeln;
end;
writeln;
writeln('кол-во отрицательных элементов каждого столбца: ');
for j := 1 to n do
begin
for i := 1 to n do
if mas[i, j] < 0 then
inc(k);
writeln(j, '-й столбец: ', k);
k := 0;
end;
end.