Question

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

Answer 1

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.