Усилители звука, очки, протезы!
var
x, y: real;
begin
read(x, y);
write((x * x - 7 * x + 6) / abs(y))
end.
Методом сортировки выбором:
<span />
543261
--- 1
143265
--- 2
123465
--- 3
123456
<span />
Следовательно, за 3 перестановки.
Const n=20;
Var i, k:integer ;s:real ;
A:array [1..200]of Integer ;
Begin
S:=0;
For i:=1 to N do begin
Write(' ') ;
a[i]:=random(41)+150;
S:=s+a[i];
Writeln(' ', a[i]) ;
End;
S:=s/n;
For i:=1 to N do begin
If(a[i] >s) then k:=k+1;
End;
Writeln ( ' ', k) ;
End.