1,2.3,9,10
правильно это первое ваторое третье девятое и десятое
Var
A:array[1..10] of integer;
n:integer;
Begin
Write('n = ');Readln(n);
For n:= 1 to n do
Read(A[n]);
Write('Массив: ');
For n:= 1 to n do
Write(A[n],' ');
WriteLn;
WriteLn('Сумма первого и последнего элемента: ',A[1]+A[n]);
End.
Кодируем точку нулем, тире - единицей. Тогда комбинация длиной пять сигналов может содержать максимум 5 единиц, т.е. для записи понадобится 5 бит.
Числу 11111(2) соответствует число 16+8+4+2+1=31(10), следовательно всего можно записать 32 комбинации точек и тире, которые будут кодироваться числами от 0 до 31.
Различные windows быстрей и лучше работает.