Із букв скласти слово і отримаєш назву складової частини компютера атнермоюкс

Якщо складова частина комп'ютера то сканер

// 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.

< /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()*); //случайные числа от -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">