мне! Информатика 8 класс! ​

Sub Zadanie16084380()
    ' Дана матрица Y(5,5) (элементы матрицы выбрать самостоятельно). Вы-
    ' числить элементы новой матрицы Z(5,5) по правилу: zij = yij / ki, где ki – количе-
    ' ство положительных элементов i-той строки.
    ' Если в i-той строке положительных элементов нет, то i-тая строка в матрице
    ' Z должна быть заполнена нулями
    Const N = 4
    Dim Y,Z,K
    ReDim Y(N, N), Z(N, N), K(N)
    S=""

    Randomize
    For i = 0 To N
        K(i) = 0
        For j = 0 To N
            Y(i, j) = Int(100 * Rnd) - 50
            S = S & Y(i, j) & " "
            If Y(i, j) > 0 Then
                K(i) = K(i) + 1
            End If
        Next
        S = S & vbNewLine
    Next
    S = S & vbNewLine

    For i = 0 To N
        For j = 0 To N
            if K(i) = 0 then
            Z(i, j) = 0
            else
            Z(i, j) = Y(i, j) / K(i)
            end if
            S = S & Z(i, j) & " "
        Next
        S = S & vbNewLine
    Next
    MsgBox (s)
End Sub

Call Zadanie16084380()

код написан на VBScript

// PascalABC.NET 3.0, сборка 1128
procedure AllMake(p:array of integer; var avg:real);
begin
  avg:=p.Average;
  for var i:=0 to p.Length-1 do
    if p[i]<avg then p[i]*=10
end;

begin
  var n:=ReadInteger('Количество элементов в массиве:');
  var a:=ArrRandom(n,1,50);
  Writeln('Исходный массив'); a.Println;
  var av:real;
  AllMake(a,av);
  Writeln('Среднее арифметическое равно ',av);
  Writeln('Результирующий массив'); a.Println;
  WriteAllText('out.txt',a.JoinIntoString)
end.

Тестовое решение:
Количество элементов в массиве: 15
Исходный массив
34 50 49 50 17 21 13 25 11 43 47 45 30 11 1
Среднее арифметическое равно 29.8
Результирующий массив
34 50 49 50 170 210 130 250 110 43 47 45 30 110 10

Файл out.txt дан во вложении.