Какое чувство наиболее развито у дельфина

Унего больше развито слух

// pascalabc.net 3.2, сборка 1439 от 09.05.2017 // внимание! если программа не работает, обновите версию! №1 begin   var s: =arrrandom(readinteger('k='),1,50); s.println;   var min: =s.min;   s.transform(x-> x-min); s.println end. пример k= 13 41 31 28 2 50 46 7 31 40 30 13 8 26 39 29 26 0 48 44 5 29 38 28 11 6 24 №2begin   var m: =readinteger('количество строк в матрице: ');   var k: =readinteger('количество столбцов в матрице: ');   writeln('*** исходная матрица [',m,',',k,'] ***');   var a: =matrrandom(m,k,-99,99);   a.println(4); writeln(4*a.colcount*'-');   writeln('первые положительные элементы в строках');   a.rows.select(r-> r.where(x-> x> 0).take((x-> x).println end. пример количество строк в матрице: 5 количество столбцов в матрице: 8 *** исходная матрица [5,8] ***   -91 -83 -26    4 -40  33 -40  -6   71 -87  -8  65  94 -19  59  -9   -91 -17  69  32  30  90  63    4   -53 -52  93    4 -34 -70 -75 -95   -99 -42  95  69 -70 -62  39 -22 первые положительные элементы в строках 4 71 69 93 95

Program one; uses crt; const     k = 10; var     s: array[1..k] of integer;     i, min: integer; begin     randomize;     writeln('array: ');     for i : = 1 to k do     begin         s[i] : = random(20);         write(s[i], ' ');     end;     writeln;         min : = s[1];       for i : = 2 to k do         if s[i] < min then             min : = s[i];     writeln('min: ', min);     writeln('result: ');     for i : = 1 to k do     begin         s[i] : = s[i] - min;         write(s[i], ' ');     end; end. program two; uses crt; const     m = 5;     k = 5; var     a: array[1..m] of array[1..k] of integer;     i, j, min: integer; begin     randomize;     writeln('matrix: ');     for i : = 1 to m do     begin         for j : = 1 to k do         begin             a[i][j] : = random(20) - 10;             write(a[i][j], ' ');         end;         writeln;     end;     writeln('result: ');     for i : = 1 to m do     begin         for j : = 1 to k do         begin             if a[i][j] > 0 then             begin                 write(a[i][j], ' ');                 break;             end;         end;     end; end.