Question

Срочно помогите!!!
12 чисел выбрасываются случайным образом из отрезка от -4 до 5.
Подсчитать сумму нечётных чисел и вывести на экран.

Делать нужно через цикл WHILE!!!!!! В ПАСКАЛЕ!!!! ​

Answer 1

Ответ:

var i,x,sum:integer;

begin

randomize;

   sum:=0;

   i:=1;

   

   while i<=12 do

   begin

       x:=random(10)-4;

       if abs(x mod 2)=1 then sum:=sum+x;

       //writeln (x);

       i:=i+1;

   end;

   writeln ('sum=',sum);

end.

Объяснение: