Написать программу на Delphi помогите не понимаю

[Doni11]

дан двумерный массив A(N*N). Найти сумму первых N/2 столбцов и сумму последних N/2 (N-Четное). Преобразовать в одномерный массив те столбцы, сумма которых меньше.

[Doni11]

Дай те какой нибудь совет хотя бы)) Не понимаю массивы вообще

[type_Oleg]

Сообщение от Doni11

Дай те какой нибудь совет хотя бы)) Не понимаю массивы вообще

Посмотрите в поиске на форуме. Там аж 15 страниц вывалилось ..

[Doni11]

Спасибо, но мне нужно Delphi

[type_Oleg]

Вы не поверите, но Delphi - это тоже Pascal.

[newerow1989]

procedure TForm1.Button1Click(Sender: TObject);
const n=10;
var i,j,k,s1,s2:integer;
    a:array[1..n,1..n] of integer;
    b:array[1..n*n div 2] of integer;
begin
   Randomize;
   Label1.Caption:='';
   For i:=1 to n do
   begin
      For j:=1 to n do
      begin
         a[i,j]:=Random(50);
         Label1.Caption:=Label1.Caption+IntToStr(a[i,j])+'  ';
      end;
      Label1.Caption:=Label1.Caption+#13#10;
   end;
   s1:=0;
   s2:=0;
   For i:=1 to n do
   begin
      For j:=1 to n div 2 do
         s1:=s1+a[i,j];
      For j:=n div 2+1 to n do
         s2:=s2+a[i,j];
   end;
   Label2.Caption:=Format('s1 = %d     s2 = %d',[s1,s2]);
   k:=0;
   If s1<s2 then
      For i:=1 to n do
         For j:=1 to n div 2 do
         begin
            k:=k+1;
            b[k]:=a[i,j];
         end
      else
      For i:=1 to n do
         For j:=n div 2+1 to n do
         begin
            k:=k+1;
            b[k]:=a[i,j];
         end;
   Label3.Caption:='';
   For k:=1 to n*n div 2 do
      Label3.Caption:=Label3.Caption+IntToStr(b[k])+'  ';
end;