[Kate23]

Решите пожалуйста !
Заменить элементы массива с k1-го по k2-й на те же элементы в обратном порядке.

[lmikle]

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

Решите пожалуйста !
Заменить элементы массива с k1-го по k2-й на те же элементы в обратном порядке.

Как-то так:

Код:

var
  I, Buf : Integer;
  A : Array Of Integer;
begin
  For I := K1 To K2 Do
    Begin
      Buf := A[i];
      A[i] := A[K1 + K2- I];
      A[K1 + K2- I] := Buf;
    End;

Арифметику индексов не проверял.

[angvelem]

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

Арифметику индексов не проверял.

И массив забыл инициализировать.

[Kate23]

Заменить минимальный по модулю положительный элемент массива нулем.

Код:

var
Form1: TForm1;
N:integer;
M:array of integer;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
i,max:integer;
begin
Randomize;
N:=Strtoint(Edit1.Text);
setlength(M,N);
Edit2.Text:=' ';
Edit3.Text:=' ';
for I := 0 to N-1 do
begin
M[i]:=Round(Sin(Random(10))*10);
Edit2.Text:=Edit2.Text+' '+inttostr(M[i]);
end;
max:=0;
for i:=1 to high(M) do
if abs(M[i])>abs(M[i-1]) then max:=i;
M[max]:=0;
begin
M[i]:=Abs(M[Low(M)]);
End;
for I := 0 to N-1 do
Edit3.Text:=Edit3.Text+' '+inttostr(M[i]);
end;
end.

Админ: Пользуемся тегами для оформления кода!

Не выполняет действие...