Дан одномерный массив из 25 целых случайных чисел из диапазона [-100; 50] решите .

program helloworld;

var n: array [1..25] of integer;

var i: smallint;

begin

      for i : = 1 to 25 do

              n[i] : = -100 + random(150);

      for i : = 1 to 25 do

          if n[i] > 0 then writeln(n[i]);

end.

линейный (следования)

разветвляющийся (развилка)

циклический

закодированный текст: byck is my dog.