1. Друга ищи, а найдешь - береги.
2. Старый друг лучше новых двух.
Как-то так.
// PascalABC.NET 3.0, сборка 1157 от 02.02.2016
begin
var n:=ReadInteger('n=');
var y:=ArrRandom(n,1,100); y.Println(', ');
var imax:=0;
var imin:=0;
for var i:=1 to n-1 do
if y[i]>y[imax] then imax:=i
else
if y[i]<y[imin] then imin:=i;
Swap(y[imax],y[imin]);
y.Println(', ')
end.
<u><em>Тестовое решение:</em></u>
n= 12
35, 81, 48, 34, 51, 44, 97, 56, 94, 51, 11, 31
35, 81, 48, 34, 51, 44, 11, 56, 94, 51, 97, 31
название программы начинается с __ незнаю в чем компилируешь, может ругаться.
убери лишние begin end в условиях, они не нужны там
после readln
if ... then ... else END;
после каждого else if начинается, не нужны begin end, у тебя одно условие там. и одно действие
А фото??????????????????????????????????????????????????
Код буквы трехзначный, начинающийся с 1, или однозначный (0 для С).
8СF8(16) = 1000 1100 1111 1000(2)
100 - К
0 - С
110 - О
0 - С
111 - Л
110 - О
0 - С
0 - С
Получается КСОСЛОСС, т.е. ответ номер 3.