Дан одномерный массив из 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.

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

(если сумма цифр числа делится на 3, то число делится на 3 нацело)

var a, s: integer;

begin

s: =0;

writeln ('введите число');

while a< > 0 do

begin

a: = a mod 10  

s: =s+a;

end;

if  s mod  3 = 0  then writeln ('делится') else

writeln ('не делится');

end.