Question

СРОЧНО!!! ПРОШУ, ОЧЕНЬ НУЖНО ​

Answer 1

program ex_1;

 var sum, i, x, N: Integer;

 begin

   randomize;

   sum := 0;

   // ввод N

   writeln('Введите N: ');

   read(N);

   writeln('Числа:');

   for i := 1 to N do begin

    // задаем случайно число в отрезке [-9, 20]

     x:=random(30)-9;

     // вывод этого числа

     writeln(x,' ');

     // суммируем, если оно подходит

     if (x>0) and ((x mod 3)=0) then

       sum+=x;

   end;

   // вывод суммы

   writeln('sum = ',sum);  

 end.