Паскаль АВС.

Дан массив из C чисел. Определить в нём самое маленькое положительное число.

Const

N = 10; / / Задаём размерность массива

Var

A: array[1 ... N] of integer; / / Объявляем массив

i, B: integer;

Begin

Randomize;

Write ('Исходный массив:') ;

For i: = 1 to N do

Begin

A[i] : = random (2*N+1) - N; / / Заполняем массив случайными числами

Write (' ', A[i]) ; / / и выводим его на экран

End;

WriteLn;

B : = A[N]; / / В переменной B будет находится искомое число

For i: = 1 to N-1 do

if (A[i] > 0) and (A[i] < B) then

B : = A[i];

WriteLn ('Наименьшее положитиельное чилсо: ', B) ;

End.