Последовательно по одному вводятся 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.