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

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<br>
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);<br>    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

Comments

Спасибо вам большое. всё работает.

---

Пожалуйста. Конечно работает, а как иначе?

---

Пожалуйста, можно ещё два вопроса вам задать. Мне очень надо. Т.к завтра уже сдавать.