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

var
  a: array [1..3] of shortint;
  i: byte;
  begin
  for i := 1 to 3 do
  begin
    a[i] := random(-1024, -1);
    writeln(String.Format(a[{0}] => {1}, i, a[i]));
  end;
  writeln();
  a[1] := 0;
  for i := 1 to 3 do writeln(String.Format(a[{0}] => {1}, i, a[i]));
end.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.