Заменить первый отрицательный элемент нулём. паскаль абц. обязательно нужно использовать команду рандомайз. ниже пример не является верным. в нём не хватает команды рандомайз var a: array[1..10] of integer; i,t: integer; begin for i : = 1 to 10 do read(a[i]); for i : = 1 to 10 do begin if (a[i]< 0) and t=0 then begin a[i]: =0; t: =1; end; writeln(a[i]); end; end.

Const
  n=10;
var
  a:array[1..n] of integer;
  i:integer;
  t:boolean;

begin
  Randomize;
  Writeln('Исходный массив');
  for i := 1 to n do
  begin
    a[i]:=Random(51)-25;
    Write(a[i]:4)
  end;
  Writeln;
  t:=false; i:=1;
  repeat
    t:=(a[i]<0);
    if t then a[i]:=0;
    Inc(i)
  until t;
  Writeln('Результирующий массив');
  for i := 1 to n do Write(a[i]:4)
end.

Тестовое решение:
Исходный массив
  13  12 -19 -23  12 -11 -22 -13  23  -1
Результирующий массив
  13  12   0 -23  12 -11 -22 -13  23  -1