Здравствуйте! Помогите пожалуйста с лабораторной работой

Question

Написать процедуру, которая в последовательности чисел ai...an заменяет все отрицательные члены на 0. в Delphi

imobilazer · Accepted Answer

procedure change(n:integer; i: integer;);
var j: integer;
begin
for j:=i to n do if mass[j] < 0 then mass[j]:=0;
end;