Question

12 БАЛЛОВ. СРОЧНО!!! Напишите программу, определяющую колличество отрицательных чисел для введенных с клавиатуры 10 отрицательных чисел

Answer 1

Var
    i, k, n: integer;

begin
    k := 0;
    
    for i := 1 to 10 do
    begin
        write('Введите число');
        readln(n);
        if n < 0 then k := k + 1;
    end;
    
    writeln(k);
end.

Задачу понимаю так - вводится 10 чисел, посчитать сколько из них отрицательные

Answer 2

Program symma;
var
   a, s: integer;
begin

   s:=0;
   for i:=1 to 10 do
     begin
     write('введите отрицательное число');
     readln(a);
     s:=s+a;
   end;

writeln('s=',s);

end.

Answer 3

Конечно! Вот пример программы на языке Python, которая позволяет пользователю ввести 10 чисел с клавиатуры и определяет количество отрицательных чисел:

pythonCopy code
count = 0  # переменная для хранения количества отрицательных чисел

for i in range(10):
    number = int(input("Введите число: "))
    if number < 0:
        count += 1

print("Количество отрицательных чисел:", count)

Пользователю будет предложено ввести 10 чисел с клавиатуры. Программа проверяет каждое число и, если оно меньше нуля, увеличивает значение переменной count на единицу. По завершении цикла программа выводит количество отрицательных чисел на экран.

Обратите внимание, что эта программа предполагает, что пользователь будет вводить только числа, а не другие символы. Если пользователь вводит что-то, что не является числом, программа вызовет ошибку. В реальных программных решениях следует предусмотреть дополнительную проверку и обработку ввода пользователя.