zad2_dvumern

uses crt;
const n=3;
var a: array[1..n,1..n] of integer; i,j:integer; min:integer;
begin
writeln('Задайте массив: ');
for i:=1 to n do
for j:=1 to n do
readln(a[i,j]);
clrscr;
min:=a[1,1];
writeln('Начальный массив ');
for i:=1 to n do
for j:=1 to n do begin
write(a[i][j]:4);
if j=n then writeln();
end;
for i:=1 to n do
for j:=1 to n do
if a[i,j]<min then min:=a[i,j];
writeln();
writeln('Конечный массив ');
for i:=1 to n do
for j:=1 to n do
begin
if a[i,j]=0 then a[i,j]:=min;
write(a[i][j]:4);
if j=n then writeln();
end;
writeln();
end.