Дан целочисленный линейный массив. удалить из него последний четный элемент.

Uses crt; const   n=15; var   a: array[1..n] of integer;   i,j,k,t: integer;   found: boolean; begin   clrscr;   randomize;   writeln('исходный массив: ');   for i: =1 to n do begin       a[i]: =random(90)+1;       write(a[i],' ')   end;   writeln;   i: =n; found: =false;   repeat       found: =(a[i] mod 2=0);       if (not found) then dec(i)   until found or (i=0);   if found then begin       for i: =i to n-1 do a[i]: =a[i+1];       writeln('результирующий массив: ');       for i: =1 to n-1 do write(a[i],' ')   end;   readkey end. тестовое решение: исходный массив: 60 90 39 83 24 70 82 53 45 5 12 9 85 57 47 результирующий массив: 60 90 39 83 24 70 82 53 45 5 9 85 57 47

2)program nah;

  var s: string;

begin

s: = 'рэки,горы и ';     (присвоение значения)

writeln (s);                               (вывод)

delete (s, 5,6);                     (удаление из строки s начиная с 5-го символа 6) символа)

writeln(s);                           (вывод результата)

end. 

  решение будет выглядеть так

  рэки, горы и

рэки и  

 

 

прости что не решила  

 

1 способ

 

применим метод уменьшения в два раза области неопределенности(путь к стелажу выделен жирным шрифтом):

16

8-8

4-4 4-4

2-2 2-2 2-2 2-2

1-1 1-1 1-1 1-1 1-1 1-1 1-1 1-1

мы потратили 4 бита информации на поиск нужного стеллажа, теперь нащдо найти нужную нам полку:

6

3-3

2-1 2-1 

1-1 1 1-1 1

потрачено еще 3 бита информации. всего информации 4+3 равно 7 бит информации. 

 

2 способ:

 

воспользуемся формулой: 2

2^i=n

 

количество информации о нахождении стеллажа:

 

2^4=16

 

i=4 бита

 

количество информации о нахождении полки:

 

2^i6 поэтому возьмем число 2^i так чтобы результат находился рядом с числом 6. так как если число будет меньше 6 то мы не сможем точно получить информация, то  2^i должно быть больше 6. значит:

2^3=8

 

i=3

 

4+3=7 бит информации