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

[-Даша-]

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


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

[Айра]

Вот:

uses crt;
var
  a: array[1..10] of integer;
  min,k,i,s:integer;
begin
  randomize;
  for i:=1 to 10 do a[i]:=random(15)-5;
  min:=a[1];
  for i:=1 to 10 do
  if a[i]<min then
    begin
      min:=a[i];
      k:=i; //вот здесь ты запомнила номер минимума
    end;
  write('Massiv sostoit:');
  for i:=1 to 10 do write (a[i], ' ');
  writeln;
  s:=0;
  for i:=k to 10 do s:=s+a[i];  // а тут все поскладывала
  writeln ('Summa elementov: ',s);
  readln;
end.

добавлено: я изменила значение random, чтоб можно было самой посчитать и проверить, так что это не суть важно..
Заметь, что если в операторе цикла\условия\и т.п. выполняется только один оператор, то begin\end можно не писать..

Сообщение отредактировано: Айра - 18.06.2008 10:50

[Гость]

Ой Айра огромное тебе спасибо за помощь! Очень хорошо всё объяснила.
С этой программкой разобралась. Сейчас попробую сделать оставшиеся 2.
Надеюсь ты мне поможешь, ну или кто-нибудь другой.