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.