Дан одномерный массив j из n элементов , значения которых находятся в диапазоне от -90 до 90 подсчитать кол-во положительных элементов .вывести на экран исходный массив и результат подсчёта .программа бейсик

Dim j(1 to 20) as integer i%=0 randomize timer p%=0 cls  'очистить экран for i%=1 to 20     j(i%)=int(180*rnd)-90  'случайное целое на [-90,90]     print j(i%)     if j(i%)> 0 then p%=p%+1 next print "количество положительных элементов",p% end

Const n=10; m=5; var a: array[1..n,1..m+1] of integer; i,j,k,sp,s: integer; begin randomize; writeln('   результаты соревнований'); for i: =1 to n do   begin   s: =0;   for j: =1 to m do   begin   a[i,j]: =random(50)+50;   write(a[i,j]: 4);   s: =s+a[i,j];   end;   a[i,m+1]: =s;   writeln(s: 5);   end; write('k='); readln(k); sp: =0; for i: =1 to n do   if a[i,m+1]> =k then sp: =sp+1; writeln('sp=',sp); end. пример:   результаты соревнований   69   52   91   62   65   339   70   53   96   56   97   372   78   98   94   61   62   393   62   86   50   58   95   351   82   98   53   56   81   370   75   64   56   85   54   334   69   99   53   72   97   390   55   75   66   59   61   316   99   71   83   75   51   379   91   73   53   88   79   384 k=350 sp=7

Сначала он поднялся на один уровень-значит он перешёл в папку,в которой хранится папка архив затем перешёл в какой-то подкаталог текущего каталога-значит он перешёл в папку,которая хранится в папке,в которой хранится архив,то есть эта папка находится на одном уровне с папкой архив. еще раз перешел в какой-то подкаталог текущего каталога-значит он перешёл в папку,которая хранится в папке,которая находится на одному уровне с папкой архив. с: \данные\документы\2009значит 2009-е ще раз перешел в какой-то подкаталог текущего каталогадокументы -з атем перешёл в какой-то подкаталог текущего каталога,значит эта папка находится на одном уровне с папкой архивзначит искомый адрес: с: \данные\архивответ: вариант 3