Vladimir_S

Пожалуйста: вместо

begin
b[i,j]:=random(61)-30;
write(b[i,j]:4);
end;

вставьте

begin
write('b[',i,',',j,']= ');
readln(b[i,j]);
end;

и уберите строку

randomize;