Для элементов побочной диагонали, меньших нуля, найти сумму элементов столбца, где этот элемент расположен

03.06.2011, 22:15. **Показов** 861. **Ответов** 1

Студворк — интернет-сервис помощи студентам

Задание: Для элементов побочной диагонали, меньших нуля, найти сумму элементов столбца, где этот элемент расположен.
Основу я сделал но затормозил на выводе самой суммы. Как вывести сумму в одномерный массив?

Delphi

procedure TForm1.Button2Click(Sender: TObject);
var i,j,l:integer;
begin
for i:=1 to n do
for j:=1 to n do
A[i,j]:=StrToInt(St1.Cells[i-1,j-1]);
j:=1;
k:=0;
While j<n do
begin
if A[n+1-j,j]<0 then
   begin
   k:=k+1;
   l:=0;
   j:=1;
         while j<=n do
           begin
         l:=l+A[n+1-j,j];
         j:=j+1;
          end;
         S[k]:=l;
          end;
j:=j+1;
end;

Комментарий модератора

Теги кода добавлены модератором. По правилам форума, код должен быть оформлен соответствующими тегами. Для оформления кода Delphi следует выделить этот код и на панели редактирования сообщения нажать кнопку "DELPHI".

@Сидорович · 04.06.2011, 18:12

Пишите с отступами и в BB-теге [DЕLPHI][/DELPHI].

@Сидорович 129 / 31 / 3 Регистрация: 03.08.2010 Сообщений: 630
	04.06.2011, 18:12	2
	Пишите с отступами и в BB-теге [DЕLPHI][/DELPHI]. 0

Опции темы