Question

Подсчитать кол-во отрицательных чисел из 10 введенных с клавы (pascal abc.net)

Answer 1

Program n1;
var a,i,k: integer;
begin
k:=0;
for i:=1 to 10 do
begin
readln(a);
if a<0 then k:=k+1;
end;
write(k);
end.

Answer 2

Для подсчета количества отрицательных чисел из 10 введенных с клавиатуры, вам понадобится написать программу на языке PascalABC.Net. Вот пример такой программы:

program CountNegativeNumbers;
var
  count, number, i: integer;
begin
  count := 0;
  for i := 1 to 10 do
  begin
    write('Введите число: ');
    readln(number);
    if number < 0 then
      count := count + 1;
  end;
  writeln('Количество отрицательных чисел: ', count);
end.

В этой программе мы используем переменные `count` для подсчета количества отрицательных чисел и `number` для хранения введенного числа. Мы также используем цикл `for` для повторения ввода чисел 10 раз. Если введенное число меньше нуля, мы увеличиваем значение переменной `count` на 1. В конце программы выводим количество отрицательных чисел.

Примечание: Программа предполагает, что пользователь будет вводить только целые числа.

Надеюсь, это поможет вам подсчитать количество отрицательных чисел из 10 введенных с клавиатуры. Если у вас возникнут дополнительные вопросы, пожалуйста, дайте мне знать!