Если в России пятибальная то 3 символа, если Украина и то 4, если институт то 7 (у нас система), иностранный институт 8, в военных училищах (отл/хор/неуд) там 2 двоичных знака. Если оценок несколько - можно использовать кодирование по Хэммингу (но при учительнице такие слова лучше говорить шепотом)
Var i,x:integer; m:array[10..20] of integer; begin randomize; for i:=10 to 20 do m[i]:=random(11)+10; for i:=10 to 20 do write(m[i],' '); writeln; x:=m[10]; m[10]:=m[20]; m[20]:=x; for i:=10 to 20 do write(m[i],' '); writeln; end.
2)
var max,min,i,x:integer; m:array[10..20] of integer; begin min:=10; max:=10; randomize; for i:=10 to 20 do m[i]:=random(100)+1; for i:=10 to 20 do write(m[i],' '); writeln; for i:=10 to 20 do begin if m[i]<m[min] then min:=i; if m[i]>m[max] then max:=i; end; x:=m[min]; m[min]:=m[max]; m[max]:=x; for i:=10 to 20 do write(m[i],' '); writeln; end.
Var max,min,i,x:integer; m:array[10..20] of integer; begin min:=10; max:=10; randomize; for i:=10 to 20 do m[i]:=random(10)+10; for i:=10 to 20 do write(m[i],' '); writeln; for i:=10 to 20 do begin if ( m[i] mod 2) = 0 then m[i]:=m[i]+1;end; for i:=10 to 20 do write(m[i],' '); writeln; end. 2)
var max,min,i,x:integer; m:array[10..20] of integer; begin min:=10; max:=10; randomize; for i:=10 to 20 do m[i]:=random(10)+10; for i:=10 to 20 do write(m[i],' '); writeln; for i:=10 to 20 do begin if ( m[i] mod 2) = 0 then m[i]:=0 else m[i]:=m[i]*3; end; for i:=10 to 20 do write(m[i],' '); writeln; end.
