Решить задачи на языке программирования в Turbo Pascal: 1) Дан массив, состоящий из 10…

var t: array[1… 10] of integer; min,i,j,k,l: integer; Begin Randomize; min=100; for i: =1 to 10 do begin t[i]: =random (200) -100; if t[i]>0 and min>t[i] then min: =t[i]; end; writeln ('min=', min); min=1000; for i: =1 to 9 do begin for j: =i+1 to 10 do begin if abs (t[i]-t[j]) комментировать