Question

Ввести с клавиатуры 7 чисел.Найти количество нечетных отрицательных чисел. (в программе PascalABC.NET)

Answer 1

Var a,b:integer;
begin 
Write('Введите 7 чисел: '); 
for var i:=1 to 7 do 
begin    
read(a);   
if (a<0) and (abs(a) mod 2=1)     
then inc(b); 
end;    
writeln('Количество нечетных отрицательных чисел: ',b);  
end.

Пример:
 Введите 7 чисел: 1  9  12  -2  -5  -29  -50Количество нечетных отрицательных чисел: 2

Answer 2

Пример программы на PascalABC.NET для решения данной задачи:

vbnetCopy code
program CountOddNegative;

var
  i, num, count: integer;

begin
  count := 0;
  
  writeln('Введите 7 чисел:');
  
  for i := 1 to 7 do
  begin
    readln(num);
    
    if (num < 0) and (num mod 2 <> 0) then
      count := count + 1;
  end;
  
  writeln('Количество нечетных отрицательных чисел: ', count);
  
end.

В данной программе мы используем переменные i, num и count. Переменная i используется в цикле for для ввода с клавиатуры 7 чисел. Переменная num хранит введенное пользователем число на каждой итерации цикла. Переменная count используется для подсчета количества нечетных отрицательных чисел.

На каждой итерации цикла мы считываем число с помощью процедуры readln и проверяем, является ли оно отрицательным и нечетным. Если да, то увеличиваем переменную count на 1. После окончания цикла выводим результат подсчета на экран с помощью процедуры writeln.

Пример использования программы:

diffCopy code
Введите 7 чисел:
-5
2
-7
8
0
-3
-9
Количество нечетных отрицательных чисел: 3

В этом примере программа подсчитывает количество нечетных отрицательных чисел среди введенных пользователем чисел. В данном случае таких чисел оказалось 3: -5, -7 и -3.