Question

Заменить первый отрицательный элемент нулём. Паскаль АБЦ. Обязательно нужно использовать команду рандомайз. Приведённый ниже пример не является верным. В нём не хватает команды Рандомайз

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.

Помогите пожалуйста

Answer 1

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