Сэтим . думаю это вариант 1 . заранее ! ​

Вариант 1 правильно .

program bar;

uses crt;

const

  nn = 100; { максимальный размер массива }

var

  i, j, n: integer;

  a: array[1..nn] of integer;

begin

  randomize;

  write('n = ');

  readln(n);

  for i : = 1 to n do

  begin

    a[i] : = random(199) - 99;

    write(a[i], ' ')

  end;

  writeln;

  j : = 1;

  for i : = 2 to n do

    if a[i] < a[j] then

      j : = i;

  writeln('n min = ', j);

  readkey

end.

pascalabc.net

begin

  println(' 1');

  var b : = arrrandom(15, -40, 20);

  b.println;

  var k : = readinteger('введите заменяющее число: ');

  b.transform(p -> p.isodd and (p < 0) ? k : p);

  b.println;

  println(' 2');

  var m : = arrrandom(13, -99, 99);

  m.println;

  var i : = m.findlastindex(p -> p.iseven);

  if i = -1 then

    println('в массиве нет четных элементов')

  else

  begin  

    m : = m[: i] + arr(100) + m[i: ];

    m.println

  end;

  println(' 3');

  var a : = readarrinteger('10 элементов массива а: ', 10);

  var bb : = readarrinteger('10 элементов массива b: ', 10);

  var c : = a.zip(bb, (p, q) -> p + q);

  c.println

end.