Заполнить массив из 15 элементов числами из интервала от -10 до 10 вывести в строчку и повторно вывести в строчку, заменив положительные элементы на число 0.

uses crt;var a: array[0..15] of integer;i:integer;begin for i:=1 to 15 do  begin   write(random(21)-10,' ');  end;  end.