Question

Дан массив чисел.Определить количество и сумму нечетных отрицательных чисел.(Лазарус)Даю 25 балов срочно.

Answer 1

Ответ:

На каком языке?

Объяснение:

Создаёшь переменную sum;

Делаешь цикл for по массиву, делаешь if(Условие что если остаток от деления на два = 1)

{

sum = sum + элемент массива;

}

выводишь sum;

Answer 2

Конечно, вот пример кода на языке программирования Pascal (Lazarus), который позволит вам определить количество и сумму нечетных отрицательных чисел в массиве:

pascalCopy code
program CountNegativeOddNumbers;
var
  numbers: array of Integer;
  count, sum, i: Integer;
begin
  // Заполните массив числами по вашему выбору
  SetLength(numbers, 10); // Здесь 10 - размер массива, замените на нужное значение
  
  // Инициализируем переменные
  count := 0;
  sum := 0;

  // Ввод значений массива (в вашем случае можно ввести значения с клавиатуры)
  writeln('Введите элементы массива:');
  for i := 0 to Length(numbers) - 1 do
  begin
    write('Элемент ', i + 1, ': ');
    readln(numbers[i]);
  end;

  // Подсчет количества и суммы нечетных отрицательных чисел
  for i := 0 to Length(numbers) - 1 do
  begin
    if (numbers[i] < 0) and (numbers[i] mod 2 <> 0) then
    begin
      count := count + 1;
      sum := sum + numbers[i];
    end;
  end;

  // Вывод результатов
  writeln('Количество нечетных отрицательных чисел: ', count);
  writeln('Сумма нечетных отрицательных чисел: ', sum);

  // Пауза перед закрытием программы (можно убрать при необходимости)
  readln;
end.

Этот код создает массив чисел, запрашивает значения элементов с клавиатуры, а затем подсчитывает количество и сумму нечетных отрицательных чисел в массиве. Результаты выводятся на экран.

Пожалуйста, замените размер массива и введите значения элементов массива, как вам нужно.