Вроде видно , может глянете ? табличка какая то )

ответ:

как сколько? 5 тысяч! или не так?

Private sub commandbutton1_click()       dim s() as integer, n as integer, m as integer       dim i as integer, j as integer       dim min as integer, max as integer, q as integer, w as integer       cells.clear       n = inputbox("ctroki", , 4)       m = inputbox("ctolbec", , 5)       randomize       redim s(n, m) as integer       for i = 1 to n               max = -100: min = 100               for j = 1 to m                       s(i, j) = int(rnd() * 60 - 10)                       cells(i, j) = s(i, j)                       cells(i + 2 + n, j) = s(i, j)                       if min > s(i, j) then                               min = s(i, j)                               q = j                       end if                       if max < s(i, j) then                               max = s(i, j)                               w = j                       end if               next j               cells(i + 2 + n, w) = min               cells(i + 2 + n, q) = max       next i end sub

Const n=5; m=7; var a: array[1..n]of integer; b: array[1..m]of integer; s,s2: real; i: integer; begin       for i: =1 to n do             begin                             a[i]: =random(50);                 write(a[i]: 4);                   s: =s+a[i];             end; writeln; writeln(':   ',trunc(s/n)); for i: =1 to m do     begin           b[i]: =random(70);           write(b[i]: 4);           s2: =s2+b[i];     end; writeln; writeln(':   ',trunc(s2/m)); writeln; writeln('s:   ',trunc(s/n)+trunc(s2/m)); end.