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

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