Question

Последовательно по одному вводятся N целых чисел X. Найти минимальное из чисел и сумму положительных чисел. Если положительных чисел нет в последовательности,то выдать соответствующее сообщение.

Answer 1

// PascalABC.Net

var a: array of integer;

n, i, min, sum: integer;

begin

   write('Введите кол-во чисел, которое Вы будете вводить далее: ');

   readln(n);

   SetLength(a, n);

   

   for i := 0 to n - 1 do

   begin

       write('Введите ', i + 1, ' число: ');

       readln(a[i]);

   end;

   writeln();

   

   min := a[0];

   for i := 0 to n - 1 do

   begin

       if a[i] > 0 then

           sum := sum + a[i];

       if a[i] < min then

           min := a[i];

   end;

   writeln('Минимальное число: ', min);

   writeln('Сумма положительных чисел: ', sum);

end.