|
#1
|
|||
|
|||
массивы
Решите пожалуйста !
Заменить элементы массива с k1-го по k2-й на те же элементы в обратном порядке. |
#2
|
|||
|
|||
Цитата:
Как-то так: Код:
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; Арифметику индексов не проверял. |
#3
|
||||
|
||||
Цитата:
Je venus de nulle part 55.026263 с.ш., 73.397636 в.д. |
#4
|
|||
|
|||
Заменить минимальный по модулю положительный элемент массива нулем.
Код:
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. Не выполняет действие... Последний раз редактировалось Admin, 23.01.2012 в 10:01. |