Ввести матрицу A розмером NxN и вычеслить разницу элементов тех строк, в которых на главной диагонали стоят ноли. Найти минимальный елемент этой матрицы. Program matrica;
uses crt;
var
a:array[1..n,1..n]of integer;
I,j,rasn,min,rez:integer;
begin
for i:=1 to n do
for j:=1 to n do
begin
write('ввод елементов =', i,',',j,'':4);
readln(a[i,j]);
end;
for i:=1 to n do
begin
rez:=a[1,1];
for i:=1 to n do
for j:=1 to n do
if a[i,j]>rez
then
rez:=a[i,j]>rez
then
min:= rez;
End;
for i:=1 to n do
begin
if a[i,i]=0
then
for j:=1 to n do
rizn:=rizn-a[i,j];
writeln('rizn=',rizn);
End;
Writeln('min=',min);
readln;end.