Действия с информацией - это действие , связанные с

Обменом и получением информации

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

{ввожу текст, затем слово. переменная flag нужна для того, чтобы в нее записать 1, если из слова встретиться в тексте хотя бы раз буква. если это случилось, то flag становится равной 1. к буквам слова и текста обращаемся как к массиву a[i] b[j]} var a,b: string; i,n,k,j,flag: integer; begin flag: =0;     writeln('введите текст');     readln(a);     writeln('введите слово');     readln(b); k: =length(a); n: =length(b);     for i: =1 to n do         for j: =1 to k do             if a[i]=b[j]then                 flag: =1; if flag=1 then     writeln('y') else     writeln('n'); end.