Труды , 8 класс. Особенно с 2 последними заданиями.

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         nextpascal.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.