Предмет: Информатика, автор: shramelizaveta

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

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

Ответы

Автор ответа: leonidkorolev2007
0

Ответ:

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.

Объяснение:

Похожие вопросы
Предмет: Математика, автор: dezrobnjianatalij
Предмет: Математика, автор: antipovyri78
Предмет: Алгебра, автор: annaxqw0v
Предмет: Физика, автор: sbbinig