Решить дан массив a[5].найти наименьший положительный элемент среди элементов с четными номерами массива.

VB.

   Dim A(5) As Integer

   Dim min As Integer = A(0)
   For i As Integer = 1 To A.Length - 1         
           If i Mod 2 = 0 Then         
                  If A(i) > 0 And A(i) < min Then   
                         min = A(i)               
                 End If        '
           End If   
   Next

Pascal.

const n=5;
var  
a: array[1..n] of byte; 
 i,imin: byte;

begin
  writeln('Исходный массив:');  
for i:=1 to n do 
 begin    
a[i]:=random(21); 
   write(a[i],' ');  
end; 
 writeln;

  imin:=1;
  for i:=2 to n do 
 begin  
  if a[i]<a[imin] then imin:=i;    
 end;

  writeln('Минимум = ',a[imin]);
end.