[kami]

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

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


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

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

[lmikle]

Ну и где ваш код? Помогите разобраться - это значит, что что-то не получается, соответсвенно, где код, в котором не получается?

Если помогите разобраться - сделайте за меня, то вам в другой раздел (Работа).

[kami]

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71

unit Unit1;   interface   uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, StdCtrls, Grids;   const  n=10;   type y = array of Real; type   TForm1 = class(TForm)     strngrd1: TStringGrid;     btn2: TButton;     btn3: TButton;     btn4: TButton;     edt1: TEdit;     procedure btn2Click(Sender: TObject);     procedure btn4Click(Sender: TObject);     procedure btn3Click(Sender: TObject);   private     { Private declarations }   public     { Public declarations }   end;   var   Form1: TForm1;   x :y;   i : Integer;   s : Real;   implementation   {$R *.dfm}   procedure TForm1.btn2Click(Sender: TObject); begin for i := 0 to n-1 do x[i] := StrToFloat (Strngrd1.Cells[i,0])  ; end;   procedure TForm1.btn4Click(Sender: TObject); begin edt1.Text := ''; end;   procedure TForm1.btn3Click(Sender: TObject); var nmin, nmax : Integer;     min, max : Real; begin s := 0; min := x[0]; nmin := 0; max := x[0]; nmax := 0; for i := 1 to n-1 do begin if min>x[i] then begin min := x[i]; nmin := i; end;       if max<x[i] then begin max := x[i]; nmax := i; end; end;   if nmin<nmax then begin                   for i := nmin to nmax-1 do                   s := s+x[i];                   end else              begin                   for i := nmax to nmin-1 do                   s := s+x[i];                   end; edt1.Text := FloatToStr(s); end; end.

первая задача, помогите найти ошибку