Ну, если я правильно понял задание, то как-то так:
Код:
const
n=4;
var
a:array[1..n,1..n] of integer;
I,j,razn,min:integer;
begin
for i:=1 to n do
for j:=1 to n do
begin
write('a[', i,',',j,']= ');
readln(a[i,j]);
end;
min:=a[1,1];
for i:=1 to n do
for j:=1 to n do
if a[i,j]<min then min:=a[i,j];
for i:=1 to n do
if a[i,i]=0 then
begin
razn:=a[i,1];
for j:=2 to n do
razn:=razn-a[i,j];
writeln('razn[',i,']= ',razn);
end;
Writeln('min= ',min);
readln;
end.
А вообще - программа Ваша, сударь, составлена запредельно неряшливо, ошибок - просто море. Поймите: компьютер не понимает "общих соображений", ему нужна абсолютная точность и выверенность каждого значка. А у Вас?
1. Uses CRT. Прекрасно - но где в программе хоть одна команда модуля CRT? Я таковых не увидел.
2. Где константа n? Откуда, интересно, компьютер возьмет данные о размере массивов?
3. В одном месте rasn, в другом - razn, в третьем - rizn. И Вы полагаете, что компьютер поймет, что программист "имеет в виду" одно и то же? И не надейтесь!
4. rez:=a[i,j]>rez - это еще что за ахинея?
5. Ищете минимум, а знак неравенства поставлен так, что находите максимум.
И т.д., и т.п., и проч.