Нарисуйте блок-схему заполнить массивы x(10) и y(10) произвольными величинами. если число неположительных элементов массива x больше числа положительных элементов массива y, то все отрицательные элементы массива x заменить единицами и вывести массив x, если нет, то перед всеми положительными элементами массива y поставить знак минус и вывести полученный массив y. (обработка массива

Решение смотри во вложениях

Пояснение: заполни массив 10-ю элементами и он выдаст то, что тебе нужно
var arr: array [1..10] of integer;
var i,min,max:integer;
begin
for i:=1 to 10 do begin
writeln('Введите ',i,' элемент');
readln(arr[i]);
end;
min:=0;
max:=0;
for i:=1 to 10 do begin
if (arr[i]<0) then begin
if (arr[i]<min) then begin
min:=arr[i];
end;
end
else
if (arr[i]>0) then begin 
if (arr[i]>max) then begin 
max:= arr[i];
end;
end;
end;
writeln('Минимальный элемент среди отрицательных чисел ',min);
writeln('Максимальный элемент среди положительных чисел ',max);
end.

// PascalABC.NET 3.2, сборка 1417 от 28.03.2017
// Внимание! Если программа не работает, обновите версию!

procedure ListInsert(var L:List<real>;e,e1:real);
begin
  for var i:=L.Count-1 downto 0 do
    if L[i]=e then L.Insert(i+1,e1)
end;

begin
  var P:=new List<real>;
  Writeln('Введите последовательность чисел, завершив её нулём');
  P.AddRange(ReadSeqRealWhile(a->a<>0));
  var what:=ReadReal('Что вставить?');
  var before:=ReadReal('После чего вставить?');
  ListInsert(P,before,what);
  Writeln('Результат:');
  P.Println
end.

Пример
Введите последовательность чисел, завершив её нулём
3.8 -6.2 1.45 2.18 -6.2 14 2.7 2.18 2.18 3.8 15.4 0
Что вставить? 0.0001
После чего вставить? 2.18
Результат:
3.8 -6.2 1.45 2.18 0.0001 -6.2 14 2.7 2.18 0.0001 2.18 0.0001 3.8 15.4