Решение будет представлено в видео изображения:<span />
1. Поменяны прописные и строчные буквы: закодированные слова начинаются со строчных букв, а остальные прописные, хотя в исходных словах все наоборот.
2. Длина слов сохранилась, как было три пятибуквенных имени и три шестибуквенных, так и осталось, следовательно одни символы были заменены на другие.
3. В имени Филипп две последние буквы совпадают и среди закодированных слов есть одно шестибуквенное <span>тХКХОО, в котором совпадают две последние буквы. Также есть имя Максим, в котором первая и последняя буквы совпадают, а среди закодированных есть шестибуквенное </span><span>лЮЙЯХЛ. На этом основании предполагаем, что произведена подмена одной буквы другой, причем </span> подмена постоянная, т.е. конкретная буква всегда подменяется одной и той же.
4. Мы нашли два шестибуквенных имени, следовательно третье (<span>Густав) закодировано как </span><span><span>цСЯРЮБ.
</span>5. Среди пятибуквенных имен два начинаются на одну и ту же букву (А), а среди закодированных имен есть два, начинающиеся на "ю", тогда оставшееся </span><span>бЮДХЛ - это имя </span><span>Вадим.
6. В слове </span><span>юМРНМ совпадают вторая и последняя буквы. В имени </span><span>Антон
они также совпадают, следовательно оставшееся </span><span>юПР╦Л - это </span><span>Артём.
<em><u>Окончательно:</u></em>
</span><span>юПР╦Л - </span><span><span><span>Артём
</span>юМРНМ - Антон
бЮДХЛ - Вадим
лЮЙЯХЛ - Максим
цСЯРЮБ - Густав
тХКХОО</span> - Филипп</span>
Единицами измерениями называют- байты,килобайты, мегабайты,гигабайты,терабайты
Const
N = 10;
Var
X:array[1..N] of integer;
i,k:integer;
S:real;
Begin
k:=0;
S:=0;
WriteLn('Введите массив A[',N,']:');
For i:= 1 to N do
Begin
Read(X[i]);
if X[i]>1 then k:=k+1
else if X[i]<0 then S:=S+X[i];
End;
WriteLn('k = ',k);
WriteLn('S = ',S);
End.
Byte, Short, Integer, Long, Single, Double