Нужна в visual basic найти и вывести на экран все положительные элементы массива а(а1,). одновременно вывести на экран их порядковые номера. для матрицы a размером m × n вычислить среднее арифметическое каждого столбца. заранее

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 uses crt; var a: array[1..10] of integer;     i: integer; begin write('Исходный массив: '); for i:=1 to 10 do begin a[i]:=random(21)-10; write(a[i],' '); end; writeln; write('Положительные элементы: '); for i:=1 to 10 do begin if a[i]>0 then write(a[i],' '); end; writeln; write('Номера положительных элементов: '); for i:=1 to 10 do begin if a[i]>0 then write(i,' '); end; end.