Delphi

[Kate23]

помогите написать прогу!

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

[whatever]

max:=0;
for i:=1 to high(m) do
  if abs(m[i])>abs(m[i-1]) then max:=i;
m[max]:=0;

Массив m начинается с нуля, содержит не менее двух элементов.
i,max:integer;

[Stilet]

Kate23

Покажи как вводишь массив кодом.

[Kate23]

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

[Hacker19_90]

for i := k1 to (k1 + ((k2 - k1) div 2)) do
begin
     temp := a[i];
     a[i] := a[k2 - (i - k1)];
     a[k2 - (i - k1)] := temp;
end;

проверка на то что больше к1 или к2 остаётся за вами

[Kate23]

спасибо!!!

[Kate23]

Из элементов массива D сформировать массив A той же размерности по правилу: первые 10 элементов находятся по формуле Ai = Di+i, остальные по формуле Ai = Di-i.

[Mad_Cat]

For i:=1 to n do
if i<=10 then A[i]:=D[i]+i
else A[i]:=D[i]-i;

[Kate23]

var
i:integer;
begin
Randomize;
N:=Strtoint(Edit1.Text);
setlength(M,N);
Edit2.Text:=' ';
Edit3.Text:=' ';
for I := 1 to N do
begin
M[i]:=Round(Sin(Random(10))*10);
Edit2.Text:=Edit2.Text+' '+inttostr(M[i]);
end;
For i:=1 to n do
if i<=10 then M[i]:=M[i]+i
else M[i]:=M[i]-i;
Edit3.Text:=Edit3.Text+' '+inttostr(M[i]);
end;
end.



Неверно считает!!!!помогите найти ошибку

[Hacker19_90]

всё правильно просто вы бегин с ендом забыли
вот тут

For i:=1 to n do
if i<=10 then M[i]:=M[i]+i
else M[i]:=M[i]-i;
Edit3.Text:=Edit3.Text+' '+inttostr(M[i]);

Вот что вы тут выводите?

Edit3.Text:=Edit3.Text+' '+inttostr(M[i]);

Да неизвестно!
Так что бегин енд ставим!