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

// 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.

Пошаговая детализация представляет собой простой процесс, предполагающий первоначальное выражение логики модуля в терминах условного языка очень высокого уровня с последующей детализацией каждого предложения в терминах языка более низкого уровня, до тех пор, пока, наконец, не будет достигнуть уровень используемого языка программирования. Здесь уместно напомнить: чем меньше язык содержит деталей, тем более он высокого уровня. Это можно считать обычную человеческую речь, а языком низкого уровня - машинный язык.

Объяснение:

Пошаговая детализация представляет собой простой процесс, предполагающий первоначальное выражение логики модуля в терминах гипотетического (условного) языка очень высокого уровня с последующей детализацией каждого предложения в терминах языка более низкого уровня, до тех пор, пока, наконец, не будет достигнут уровень используемого языка программирования. Здесь уместно напомнить: чем меньше язык содержит деталей, тем более он высокого уровня. Можно считать языком самого высокого уровня обычную человеческую речь, а языком низкого уровня - машинный язык.