Помогите пожалуйста студентки, массивы Опции

[-Даша-]

1)Ввести 10 целых чисел, вычислить сумму чисел, начиная с минимального до последнего элемента.
2)Сформировать массив [4x6], поменять местами столбец с макс. элементом и столбец с минимальным элементом.
3)Сформировать массив [5x5], найти максимальнй элемент, находящийся выше главной диагонали и минимальный элемент, наход-ся ниже главной дипгонали.


Всем очень признательна заранее за помощь

[Гость]

Задачи ведь несложные..
В FAQ'e есть пример циклов, которые проходят по элементам выше\ниже диагоналей; задач на минимум и максимум тоже решалось очень много. Почитай темы и попробуй сделать что-нибудь, а потом, если что, поправим))

Ну тогда поправляй (сегодня просто надо сдавать эти задачки):
1)вот что я сделала, только не смейтесь:
uses crt;
var
a:array[1..10] of integer;
min,k,i,sum,n,s:integer;
begin
randomize;
clrscr;
for i:=1 to 10 do
begin
a[i]:=random(100)-5;
end;
min:=a[1];
for i:=1 to 10 do
begin
if a[i]<min then min:=a[i];
end;
write('Massiv sostoit:');
for i:=1 to 10 do
begin
write (a[i], ' ');
if min:=a[i] then write (i,' '){вот здесь выводиться номер минимального элемента, а как его запомнить в виде отдельной переменной не знаю?}
end;
writeln;
writeln
begin
s:=0;
k:=min; {как присвоить переменной К номера минимального элемента?}
for i:=k to 10 do
s:=k+a[i];
writeln;
writeln ('Summa elementov',s);
end;
readkey;
end.