Массивы

[dxn]

Всем привет. Совершенно не понимаю как выполнить эти задания в консоли.
1)Заданы два массива А и В. Первым на печать вывести массив, сумма

значений которого окажется наименьшей.
2)Дан массив A(n,n). Найти сумму всех его элементов, расположенных

выше главной диагонали.
3) Сортировка элементов массива методом простого

[Stilet]

Ну хотя бы код ввода массива самостоятельно написать сможешь?

[dxn]

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

Ну хотя бы код ввода массива самостоятельно написать сможешь?

Возможно смогу, читаю сейчас разные гайды,но не могу понять как применить их к этим задачам.

[Stilet]

Ну смоги )
А остальное поправим по ходу дела.

[newerow1989]

1 задача:

var a,b:array[1..10] of integer;
    i,s1,s2:integer;
begin
   Randomize;
   s1:=0;
   s2:=0;
   For i:=1 to 10 do
   begin
      a[i]:=Random(10);
      b[i]:=Random(10);
      s1:=s1+a[i];
      s2:=s2+b[i];
   end;
   If s1<s2 then
   begin
      Write('a = ');
      For i:=1 to 10 do
         Write(a[i],'  ');
   end else
   If s1>s2 then
   begin
      Write('b = ');
      For i:=1 to 10 do
         Write(b[i],'  ');
   end else
         Write('a = b');
   Writeln;
   Readln;
end.

2 задача:

var a:array[1..5,1..5] of integer;
    i,j,s:integer;
begin
   Randomize;
   For i:=1 to 5 do
   begin
      For j:=1 to 5 do
      begin
         a[i,j]:=Random(10);
         Write(a[i,j],'  ');
      end;
      Writeln;
   end;
   Writeln;
   Writeln;
   s:=0;
   For i:=1 to 5 do
      For j:=i+1 to 5 do
         s:=s+a[i,j];
   Writeln('s = ',s);
   Readln;
end.

Сойдет?