Какие средства общения используют администратора?

администраторы используют средство общения - .

// дан массив а(30). сформировать новый массив из значений элементов массива а кратных 5 var ish, krat: array [1..30] of word;     i,j,x       : byte; begin  j: =1;   randomize;   for i: =1 to 30 do //заполняем исходный массив случайными числами (до 1000)   begin     ish[i]: =random(1000);     writeln (i,' элемент исходного массива ',ish[i]);   end;   writeln ('находим элементы кратные пяти: ');   for i: =1 to 30 do   begin       x: = ish[i] mod 5; //определяем элементы кратные пяти       if x=0 then         begin           //и заполняем новый         krat[j]: =ish[i];         writeln (j,' элемент нового массива ',krat[j],' равен ',i,' элементу исходного массива');         j: =j+1;         end;     end; end.

Программа на qbasic 7.01 dim a(20) s = 0 for i = 1 to 20     input a(i)     s = s + a(i) next i s = s / 20 for i = 1 to 20     if a(i) < 0 then a(i) = s     print a(i); " "; next i print end тестовое решение: ? 5 ? 8 ? -3 ? 7 ? 11 ? -12 ? 6 ? 0 ? -13 ? 9 ? 11 ? 0 ? 7 ? -4 ? 1 ? 9 ? 4 ? 5 ? -11 ? 3   5    8    2.15    7    11    2.15    6    0    2.15    9    11    0    7    2.15    1    9   4    5    2.15    3 чтобы продолжить, нажмите любую клавишу