Массивы

[vbchristy46]

Поменять первый отрицательный элемент на такой же положительный

[Snejnaya]

язык какой?

[vbchristy46]

Pascal)))))))

[Snejnaya]

var mas: array 1..20 of real;
     i,n:integer;
     flag:boolean;
begin
//здесь у пользователя спрашивают число элементов массива n  и элементы массива
//далее
i:=1;
flag=false;
while (i<=n) and (flag=false) do
if mas[i]<0 then
begin
flag:=true;
mas[i]:=abs(mas[i]);
end;
end.

Или ты имел в виду поменять местами первый отрицательный и первый положительный члены массива?

[vbchristy46]

Спасибо)))))