Вообще, источники тактильной информации - это все к чему можно притронуться и получить сведения о твердости предмета, его и рельефе и тд. так что в твоем случае это дерево
bogdanyukn562
17.08.2020
Var a: array [0..9, 0..9] of real; i, j: integer; begin for i : = 0 to 9 do for j : = 0 to 9 do a[i, j] : = random(999) - 500; for i : = 0 to 9 do for j : = 0 to 9 do if ((i = j) and (a[i, j] < 0)) then a[i, j] : = 0; for i : = 0 to 9 do begin writeln(); for j : = 0 to 9 do write(a[i,j]: 5: 0); end; end.