1. const n=12; var a:array[1..n] of integer; i,max,imax,min,imin:integer; begin Randomize; writeln('Исходный массив:'); for i:=1 to n do begin a[i]:=Random(51)+150; Write(a[i]:4) end; writeln; max:=a[1]; imax:=1; min:=a[1]; imin:=1; for i:=2 to n do begin if a[i]>max then begin max:=a[i]; imax:=i; end; if a[i]<min then begin min:=a[i]; imin:=i; end; end; Writeln('max = a[',imax,'] = ',max,', min = a[',imin,'] = ',min); end.
2. const n=20; var a:array[1..n] of integer; i,j,c:integer; begin Randomize; writeln('Исходный массив:'); for i:=1 to n do begin a[i]:=Random(51)-25; Write(a[i],' ') end; Writeln; for i:=1 to n div 2-1 do for j:=1 to n div 2-i do if a[j]>a[j+1] then begin c:=a[j]; a[j]:=a[j+1]; a[j+1]:=c end; Writeln('Измененный массив:'); for i:=1 to n do Write(a[i],' '); Writeln end.
Суть - выразить число 50 в двоичной системе счисления (через 0 и 1):
50 = 110010
Следовательно, чтобы присвоить всем 50-ти ученикам уникальные коды достаточно 6 символов.
ОТВЕТ: 6 СИМВОЛОВ