Работа с одномерным и двумерным массивами

[kami46]

Нуждаюсь в помощи срочно, выручайте =)
2 за дачи, 1 - на одномерный массив, 2 - на двумерный

1) Дана последовательность из 10 различных чисел. Найти сумму чисел этой последовательности, расположенных между макс. и мин. числами (в сумму включить оба этих числа). // ввод элементов массива нужно организовать двумя способами : ручным и автоматическим


2) Дана вещественная матрица размером NxM. Переставляя ее строки и столбцы добиться того, чтобы наибольший элемент (один из них) оказался в верхнем углу.

Помогите пожалуйста разобраться с программами, буду очень благодарен =)

пишется всё это чудо на делфи

[Nezaam]

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

1) Дана последовательность из 10 различных чисел. Найти сумму чисел этой последовательности, расположенных между макс. и мин. числами (в сумму включить оба этих числа). // ввод элементов массива нужно организовать двумя способами : ручным и автоматическим

Для автоматического ввода:

var
  alpha : array [1..10] of integer;
  i, summ : integer;
begin
  randomize;
  for i := 1 to 10 do begin
    alpha[i] := random(100)-random(100);
    summ := summ + alpha[i];
    write(alpha[i], ' ');
  end; //for
  writeln(#10 + 'Сумма = ', summ);
  readln;
end.

Для ручного ввода:

var
  alpha : array [1..10] of integer;
  i, summ : integer;
begin
  writeln('Введите числа');
  for i := 1 to 10 do begin
    readln(alpha[i]);
    summ := summ + alpha[i];
  end; //for
  writeln(#10 + 'Сумма = ', summ);
  readln;
end.