Заполните таблицу по образцу предмет свойство канал орган. 1 будильник звон слух ухо 2 3 4 5

Такой вопрос уже был. мой пример решения

</script>alert("Макс. красного: " + max);//вывод сообщения о максимальной последовательности красногоalert("Частота выпадания красного: " + red1/arr.length*100+'%');//вывод сообщения о проценте частоты красного}}redm=0;//обнуляем максимальную последовательность {} else //иначе если последовательность красного закончилась//то перезапишим максимальное число//больше максимального числа, if (redm>max) max=redm; //условие если последовательность redm++; //запиши максимальную последовательность red1++; //запиши сколько раз встретилось красноеif(arr[i]==-1){ //условие если красное то for (var i = 0; i<arr.length; i++) {//цикл подсчета выподания красногоalert(arr);//вывод массива}arr.push((Math.round(Math.random()*2))-1);//случайные числа от -1 до 1for (var i = 0; i <=rounds; i++) { //цикл для заполнения массиваvar max=0;//переменная для хранения максимальной последовательностиvar redm=0;//переменая для подсчёта последовательности красногоvar red1=0;//переменная для подсчёта частоты красногоvar rounds=1000000;//число раундовvar arr=[];//обьявляем массив<script><meta charset="utf-8">

// PascalABC.NET 3.2, сборка 1344 от 22.11.2016
// Внимание! В других версиях работа не гарантируется!
begin
  var a:=ArrRandom(15,-20,20); a.Println;
  a:=a.Select(x->x.IsOdd?x*3:x div 2).ToArray; a.Println
end.

Пример
-1 -2 8 8 19 -12 13 -11 -7 -10 3 5 -18 4 3
-3 -1 4 4 57 -6 39 -33 -21 -5 9 15 -9 2 9

А вот так это же самое обычно делают в школах...
const
  n=15;
var
  a:array[1..n] of integer;
  i:integer;
begin
  Randomize;
  for i:=1 to n do begin
    a[i]:=Random(41)-20;
    Write(a[i],' ')
    end;
  Writeln;
  for i:=1 to n do begin
    if a[i] mod 2=0 then a[i]:=a[i] div 2
    else a[i]:=a[i]*3;
    Write(a[i],' ')
    end;
  Writeln
end.