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.
По условию задачи из 5 получается 199, значит
мы можем заменить операции на обратные для того чтобы получить из
199 -> 5, то есть сложение заменяем вычитанием , а умножение заменяем делением:
получаем такое уравнение:
домножаем уравнение на b и получаем: