Дан массив целых чисел из 15 элементов, заполненный случайным образом числами из промежутка [ -20, 50 ].удалить из него все элементы, в записи которых есть цифра 5.вставить число k после всех элементов, кратных своему номеру (k вводится с клавиатурыпоменять местами первый положительный и последний отрицательный элементы.

Const n=20; var a: array[1..n]of integer; i,b,k,c,f,g,h: integer; beginfor i: =1 to n do a[i]: =random(70)-20; for i: =1 to n dowrite(a[i],' '); writeln; for i: =1 to n do beginif (a[i] mod 5 = 0) and (a[i] mod 10< > 0) or (a[i]=50) then beginb: =i; for b: =i to (n-1) doa[i]: =a[i+1]; end; end; for i: =1 to n dowrite(a[i],' '); write('введите к '); read(k); for i: =1 to n do beginif a[i] mod i = 0 then beginc: =i; for i: =n downto c+1 do begina[i]: =a[i-1]; a[c+1]: =k; end; end; end; for i: =1 to n dowrite(a[i],' '); writeln; f: =0; g: =0; for i: =n downto 1 do beginif (a[i]> 0) then f: =i; end; if a[f]=0 then write('нет положительных '); for i: =n downto 1 do beginif (a[i]< 0) then g: =i; end; if (a[g]=0) then write('нет отрицательных '); if (a[f]< > 0) and (a[g]< > 0) then beginh: =a[f]; a[f]: =a[g]; a[g]: =h; end; for i: =1 to n dowrite(a[i],' '); writeln; end.

1)  количество возможных комбинаций это кол во символов в алфавите в степени числа букв в слове  -  при 2-х символах количество возможных слов равно 2^3=8 < 12 это нам не подходит  при 3-х символах количество возможных слов равно 3^3=27 > 12 2)тут  все  чуть  сложнее,  нехватку условий  дополню  сам.  смысл  такой  -  рас  утверждение  говорит  нам  о  клетке а  и  несет  4  бита  значит  именно  16  тигров  находится  в  этом  вальере(2 в 4степени)  следовательно  самый  простой  способ  определения, при  том  условии  что  именно  на  этих  условия  шло  сообщение  о  тигре  альбиносе, это  бональное  вычитание  64-16=48.  но  повторюсь  еще  раз,  как  по  мне  так условий  явно  нехватает

1) автомобили определенного производителя:           имя для обозначения: car         нумерация: по году выпуска          тип: строковый

алг  автомобили

строк  таб car[2000: 2018] 

цел  i

нач

для i  от  2000  до  2018  шаг  1  повторять 

нц

          вывод (i, "-") 

          ввод (car[i]) 

кц 

кон

2) оценка с предмета:         имя для обозначения:   grade          нумерация:   по дате получения            тип:   целый (строковый)

алг  оценки с предмета

цел  таб grade[1: 30] 

цел  i

нач

        i: =1

          пока  i< =30,  повторять 

          нц

                    вывод (i," число- ") 

                    ввод (grade[i]) 

                    i: =i+1 

кц 

кон