Question

Программирование. Вводится последовательность не равных нулю целых чисел. Найти и вывести сумму чисел больше Т (Т-вводится) и найти количество отрицательных чисел.

Answer 1

program dlb;

var

 i,T,s,k : integer;

 begin

   i := 1;

   writeln('Введите число T');

   readln(T);

   k := 0;

   while i <>0 do

   begin

     readln(i);

     if i > T then

       s := s +i;

     if i < 0 then

       k := k + 1;

   end;

write(s,',', k);

 end.

####################################

program pd;

var

 n,min,s,i,x: integer;

 begin

   min:= 10000000;

   writeln('Введите число N');

   readln(n);

   for i := 1 to N do

     begin

     readln(x);

   if x < min then

     min := x;

   if x > 0 then

     s := s + x

   end;  

if s > 0 then

writeln(min,',', s)

else

 begin

 write('Положительных чисел нет в последовательности');

 write(min);

 end;  

 end.

Answer 2

Для решения данной задачи можно использовать следующий алгоритм: 1. Ввести число T. 2. Инициализировать переменные sum и count, которые будут хранить сумму чисел больше T и количество отрицательных чисел соответственно. 3. Ввести последовательность целых чисел и для каждого числа выполнить следующие действия: 3.1. Если число больше T, добавить его к переменной sum. 3.2. Если число отрицательное, увеличить переменную count на 1. 4. Вывести значение переменных sum и count. Пример кода на языке Python для данного алгоритма: T = int(input("Введите число T: ")) sequence = input("Введите последовательность целых чисел через пробел: ").split() sum = 0 count = 0 for number in sequence: number = int(number) if number > T: sum += number if number < 0: count += 1 print("Сумма чисел больше T:", sum) print("Количество отрицательных чисел:", count) Например, если введенное число T равно 5, а последовательность чисел равна 3 8 -2 -6 4, то программа выведет: Сумма чисел больше T: 12 Количество отрицательных чисел: 2