массив

[Ximer]

задайте массив из 10 элементов с помощью датчика случайных чисел. замените все его положительные элементы на наиболыший отрицательный элемент. выведите на экран исходный массив

[Stilet]

Ну и что сложного?
Задаем массив, находим максимум в отрицательных

var a:array[1..10] of real;i:byte;max:real;
for i:=1 to 10 do begin 
 a[i]:=10-random(10);
 if (a[i]<0)and(a[i]<max) then max:=a[i];
end;

Заменяем

for i:=1 to 10 do if a[i]>0 then a[i]:=max;

Ну и в циклах выводна экран )