Что делает данная программа? program n_1; var a: integer; z: array [1..50] of integer; begin for a := 1 to 50 do begin z[a] := random(201) - 100; if z[a] > 0 then write(z[a], ' '); end; end

Так-с, в разделе объявления переменных мы видим какую-то переменную a и какой-то массив z.

Идём далее, видим, что a у нас используется к счетчик для цикла for.

Получается, что мы заполняем массив случайными числами в заданном диапазоне и сравниваем каждый элемент массива с нулем, если элемент больше нуля, то мы выводим его на экран.

Теперь всё абсолютно ясно, программа заполняет массив случайными числами, а затем выводит те элементы на экран, которые больше нуля( то есть положительные)