Паскаль АВС.
Дан массив из 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.