[ketrin]

Мне вот задали задачу
Даны натуральное число n и действительный квадратный массив размера nхn. Рассмотрим те элементы, которые расположены в строках, начинающихся с отрицательного элемента. Найти суммы тех из них, которые расположены соответственно ниже, выше и на главной диагонали.
Я её сделала, но неправельно считает. Помогите исправить ошибку.

Код:

procedure TForm1.Button1Click(Sender: TObject);
const n=5;
var
 a:array[1..n,1..n] of Integer;
 i,j,s,p,k:integer;
 begin
  randomize;
  for i:=1 to n do
    begin
      for j:=1 to n do
        begin
          a[i,j]:=random(10);
          a[i,j]:=StrToInt(InputBox('ввод массива','a[' +IntToStr(i)+',' +IntToStr(j)+']','0'))
        end;
        Memo1.Lines.Add('a='+IntToStr(a[i,j]));
    end;
    s:=0;
    for i:=2 to n do
    begin
      for j:=1 to n do
        s:=s+a[i,j];
    end;
    Memo1.Lines.Add('s='+IntToStr(s));
    p:=0;
    for i:=1 to n-1 do
    begin
      for j:=i+1 to n do
       p:=p+a[i,j];
    end;
    Memo1.Lines.Add('p='+IntToStr(p));
    k:=0;
    for i:=1 to n do
      begin
      for j:=1 to n do
      if i=j then
      k:=k+a[i,j];
      end;
      Memo1.Lines.Add('k='+IntToStr(k));
      end;
end.
end;
end.

Админ: Пользуемся тегами для оформления кода!