Массив

[Furya]

Помогите Пожалуйста!
В произвольно заданном одномерном массиве все отрицательные элементы заменить значением минимального элемента , а все положительные максимальным значением

[Stilet]

А ты можешь показать как массив вводишь?

[SlavaSSU]

var
a:array[1..1000] of longint;
i,n,max,min:longint;
begin
writeln('vvedite kolichestvo elementov massiva');
readln(n);
writeln('vvedite massiv');
min:=2000000000; max:=-2000000000;
for i:=1 to n do begin read(a[i]); if a[i]>max then max:=a[i]; if a[i]<min then min:=a[i]; end;
for i:=1 to n do begin if a[i]<0 then a[i]:=min else a[i]:=max; write(a[i],' '); end;
readln;
end.

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.