Дана матрица Wmxn, элементами которой являются натуральные числа, не превосходящие 30.
Необходимо для каждого столбца построить квадрат из символов "+", причем количество символов, составляющих сторону квадрата, равно значению наименьшего элемента
Есть такое решение
program PRP9;
uses crt;
const n=3;
m=3;
var a:array[1..m,1..n] of 1..30;
i,j,k,l:byte;
min,max:1..30;
begin
writeln('Ввести элементы массива');
for i:=1 to m do
for j:=1 to n do
readln(a[i,j]);
For j:=1 to n do
begin
max:=a[1,j]; min:=a[1,j];
For i:=1 to m do
begin
If a[i,j]>max then max:=a[i,j];
if a[i,j]<min then min:=a[i,j];
end;
For k:=1 to min do
write('+');
writeln;
For i:=1 to min-2 do
begin
write('+');
for j:=1 to min-2 do
write(' ');
write('+');
writeln;
end;
For l:=1 to min do
write('+');
writeln;
end;
end.
Код работает некорректно, хотелось бы, чтобы взглянули свежим взглядом и высказали замечания и предложения по корректировке программы.