Найти минимальный положительный элемент вектора.

XXXdesmondXXX

дан вектор содержащий m (1≤n≤100) целых элементов.Напишите программу которая находит минимальный положительный элемент Может кто помочь в pascal срочно!!!
1 ответ

XXXdesmondXXX

uses crt;
var a:array[1..100] of integer;
    n,i,min:integer;
begin
clrscr;
repeat
write('Введите размер массива от 1 до 100 n=');
readln(n);
until n in [1..100];
randomize;
for i:=1 to n do
 begin
  a[i]:=-10+random(21);
  write(a[i]:4);
 end;
writeln;
min:=0;
for i:=1 to n do
if a[i]>0 then
 if min=0 then min:=a[i]
 else if a[i]<min then min:=a[i];
if min=0 then write('В массиве нет положительных элементов')
else write('Минимальный положительный элемент=',min);
readln
end.