Цитата:
Сообщение от TIMERA
for i:=1 to n do
for j:=1 to n do
if i=j then
if a[i,j]<0 then
if i=j then
a[i,j]:=0;
|
Нет-нет, сударыня - не пойдет! Громоздко и неправильно. Это делается так:
В список переменных добавляем "флажок", лучше всего булевский, например b:boolean;
Дальше:
Код:
b:=false;
for i:=1 to n do
if a[i,i]<0 then b:=true;
if b then
for i:=1 to n do a[i,i]:=0;
Насчет Шелла - посмотрю, но это, скорее всего, завтра.