Заполнить массив из 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.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.