Delphi(массивы)

[Mishqa]

2 задачки:

1. Массив содержит 10 целых чисел. Поменять местами элементы, которые стоят в массиве рядом ( 1 и 2, 3 и 4 и тому подобное ).
2. Получить вектор скалярных произведений элементов столбиков матрицы вещественных чисел размером 3х3 на ее главную диагональ.

В проекте предусмотреть введение элементов массива из клавиатуры через компонент Memo и выведение этих массивов и добытых результатов на форму в компоненты Edit, Memo, Listbox или Label


я в программировании дуб дубом =(

[Chudo4258]

1

for i:=1 to n-1 do
 if i mod 2<>0 then begin
                              p:=a[i];
                              a[i]:=a[i+1];
                              a[i+1]:=p;
                         end;

[Google2010]

2

for j:=1 to 3 do
begin
sp:=0;
for i:=1 to 3 do
sp:=sp+a[i,j]*a[i,i];
writeln('sp ',j,'= ',sp);
end;

[Mishqa]

спасибо обоим