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.

Объяснение:

Answer 2

Конечно, помогу вам решить задачу на подсчет суммы нечетных чисел из 12 случайных чисел в диапазоне от -4 до 5, используя цикл WHILE в языке Pascal. Вот пример кода для этой задачи:

pascalCopy code
program SumOfOddNumbers;

var
  counter, number, sum: integer;

begin
  // Инициализируем переменные
  counter := 0;
  sum := 0;
  
  // Задаем генератор случайных чисел с новым seed
  Randomize;

  // Цикл while для генерации и подсчета суммы нечетных чисел
  while counter < 12 do
  begin
    // Генерируем случайное число в диапазоне от -4 до 5
    number := Random(10) - 4;
    
    // Проверяем, является ли число нечетным
    if number mod 2 <> 0 then
    begin
      // Если число нечетное, добавляем его к сумме
      sum := sum + number;
    end;
    
    // Увеличиваем счетчик итераций
    counter := counter + 1;
  end;
  
  // Выводим сумму нечетных чисел на экран
  writeln('Сумма нечетных чисел: ', sum);
end.

Этот код генерирует 12 случайных чисел в диапазоне от -4 до 5, подсчитывает сумму нечетных чисел и выводит результат на экран.