Заполнить массив z{30] случайными числами в интервале от 2 до 49 и вывести его на экран

Var z: array[1..30]of integer; var i: integer; begin randomize; for i: =1 to 30 do begin     z[i]: =(random(;     writeln(z[i]);   end; end.   значения выводить можно через отдельный цикл  var z: array[1..30]of integer; var i: integer; begin randomize; for i: =1 to 30 do  z[i]: =(random(; for i: =1 to 30 do  writeln(z[i]); end.  

1) 24+18+12=54 (ч.) 2) 54-35=19 (ч.) не любят не один вид спорта. 3) 10+8+5=23 (ч.) - любят 2 или больше видов спорта. 4) 23-19=4 (ч.) - любят все три вида спорта.

ответ: 4 человека любят три вида спорта.